my ($min, $hour, $day, $mon, $year) = (localtime(time))[1..5];