Select Code to Download

use POSIX;
sub timenow_is_between
...
        return ( $timenow ge $bgn and $timenow lt $end );
    }
}

if ( timenow_is_between( "20:30", "07:00" ) {
    print "this program is running at night\n";
} else {
    print "it is not night time right now\n";
}