Select Code to Download

my ($year, $month, $day) = (localtime)[5,4,3];
$timestamp = sprintf "%04i%02i%02i",$year+1900,$month,$day;

$timestamp = join('.',$year,$month,$day);