Select Code to Download

my ($day, $month, $year) = (localtime)[3..5];

$year +=1900;
my $datestr = join "-", ++$month, $day, $year;