Select Code to Download

my %BACKUP_DAY = (
   Sunday    => 0,
...
chomp(my $runday = `/bin/date +%A`);
my $slot = $BACKUP_DAY{$runday};
print "Slot Number is $slot\n";