my ( $minute, $hour, $day, $month, $year, $wday ) =
          ( localtime( $start ) )[ 1, 2, 3, 4, 5, 6 ];
next unless (($wday >= 1) && ($wday <= 5)
            && ($hour >= 8) && ($hour < 18));