Unnamed

my $timetravel = time() - (86400 * 10);
my (undef,undef,undef,$mday,$mon,$year,undef,undef,undef) = localtime($timetravel);
$year = $year + 1900;
print "$year-$mon-$mday";