#!/usr/local/bin/perl

use Time::Local;

($dd, $mm, $yyyy) = (localtime)[3,4,5];
$year += 1900;
$month += 1;

$ss = timelocal(0, 0, 0, $dd, $mm, $yyyy);

$tt = $ss;     
for($i=1;$i<=7;$i++){
	$interval = -$i  * 60 * 60 * 24;
	$then = $tt + $interval;
	($dd, $mm, $yyyy) = (localtime($then))[3,4,5];
	$yyyy += 1900;
	$mm += 1;
	print "$mm/$dd/$yyyy \n";
}