Select Code to Download

use strict;
sub prepareFormat {
...
        or print "\tNot in the right format!\n" and next;
    print "Year: $year, Month: $month, Day: $day, Hour: $hour, Min: $m
+in, Sec: $sec\n";
}