in reply to exiting a if loop

Why use TRUE/FALSE instead of the standard 1/0?

This could be: 
    $check = ((HOLIDAY) || ($time <= 1800));

[download]

In Section Seekers of Perl Wisdom