Select Code to Download

sub wd {
   my ($min, $max) = @_
...
# M-F, 9am to 5pm
# wd {mo-fr} hr {9-16}
my $sla_period = wd(1,5)->intersection(hr(9, 16));