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