my @is_business_day = (0, 1 x 5, 0);
SNOOZE:
while (sleep 86_400) {
    my $wday = ( localtime )[6];
    last SNOOZE if $business_day[$wday];
}
my $prev_business_day_datetime = time; 
sleep 86_400;