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