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