Uncaught exception from user code: Day '0' out of range 1..31
Line 405 in the program points to "return timelocal(0, 0, 0, @dmy) / (24 * 60 * 60);

##</code><code>##

$time = timelocal($sec,$min,$hour,$mday,$mon,$year);

##</code><code>##

use Data::Dumper;
print Dumper \@dmy;
return timelocal(0, 0, 0, @dmy) / (24 * 60 * 60);