my $month = sprintf ("%02d", (localtime)[4]+1); my $day = sprintf ("%02d", (localtime)[3]);