Select Code to Download

sub myRepeatedCode
{
   my ($day, $argument2, $argument3) = @_;
   # Do something with $day
}

if ($va eq 'today' || $va eq 'tomorrow' || $va eq 'friday') 
{ 
  DoSomething(); 
}