Select Code to Download

sub in {
  my($inQuestion)= shift;
...
  }
  return false;
}

in($question, "a", "b", "c");

if ($day =~ /^(?:Mo|Tu|We|Th|Fr|Sa|Su)$/) ...

if (defined $mnth= $monthNum{$month}) ...