The 'hour' parameter ("24") to DateTime::new did not pass the 'is between 0 and 23' callback
 at /usr/lib/perl5/site_perl/5.8.5/DateTime/Format/Epoch.pm line 179

##</code><code>##

$datetime=DateTime->new( year   => 2005,
                             month  => $MONTHNUM,
                             day    => $FDAY,
                             hour   => $hour,
                             minute => $minute,
                             second => 00 );

##</code><code>##

sub minutes_before
{
    my $minutes_b4=shift;
    my $month=shift;
    my $day=shift;
    my $hour=shift;
    my $minute=shift;
    # Lets find n minutes before!
    my $datetime=DateTime->new( year   => 2005,
                             month  => month_to_num($month),
                             day    => $day,
                             hour   => $hour,
                             minute => $minute );
    $datetime->subtract( minutes => $minutes_b4 );

    # This is clumsy, ill use it now
    # and fix it later
    if ( $datetime->day < 10 )
    {
        $day="0".$datetime->day;
    }
    else
    {
        $day=$datetime->day;
    }
    if ( $datetime->hour < 10 )
    {
        $hour="0".$datetime->hour;
    }
    else
    {
        $hour=$datetime->hour;
    }
    if ( $datetime->minute < 10 )
    {
        $minute="0".$datetime->minute;
    }
    else
    {
        $minute=$datetime->minute;
    }
    # End of genereal clumsiness...
    $ready=1;
    return @MINBEFORE = (
        num_to_month($datetime->month),
        $day,
        $hour,
        $minute );
}