note
grep
Ok - let's look at the information you're given.<br>
<code>
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>
<p>
So where you would look is that line and it involves something about the day being 0 and not in the range of 1..31. If you look at the docs for [cpan://Time::Local] the example for <c>timelocal</c> looks like this.
</p>
<code>
$time = timelocal($sec,$min,$hour,$mday,$mon,$year);
</code>
<p>
<c>$mday</c> is the 4th item. So it in your array <c>@dmy</c>. So that is where you want to look. Use [cpan://Data::Dumper] to print the value of <c>@dmy</c> right before the offending line.
<code>
use Data::Dumper;
print Dumper \@dmy;
return timelocal(0, 0, 0, @dmy) / (24 * 60 * 60);
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-133383">
[id://133383|grep]<br \>
<tt>One dead unjugged rabbit fish later...</tt>
</div></div>
774891
774891