my $time = time();
my ($d1, $m1, $y1) = (localtime($time))[3..5];
$y1 += 1900;
$m1 += 1;
$time -= 24*3600*3;  # this is three days of seconds
my ($d2, $m2, $y2) = (localtime($time))[3..5];
$y2 += 1900;
$m2 += 1;
print "$y1\_$m1\_$d1\n";
print "$y2\_$m2\_$d2\n";