#!/usr/bin/perl

use warnings;
use strict;

sub checkRun {
    my @localtime = localtime(time());
    my $wday = $localtime[6];
    my $hour = $localtime[2];
    # Monday to Thursday:
    if ($wday >= 1 && $wday <= 4) {
        return 1;
    }
    # Saturday:
    if ($wday == 6) {
        return 0;
    }
    # Sunday:
    if ($wday == 0) {
        if ($hour < 8) {
            return 0;
        } else {
            return 1;
        }
    }
    # Friday:
    if ($wday == 5) {
        if ($hour < 16) {
            return 1;
        } else {
            return 0;
        }
    }
}

print checkRun() . "\n";