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