sub is_day_ok
{
    my $day = shift;

    return if $today <= $start;
    return if $today >= $stop;
# Continue as necessary

    return 1;
}

if (is_day_ok($today))
{
    print "$today is the day\n";
}
else
{
    print "Nevermind.\n"
}