system "/bin/date +%A > /tmp/day";
open (DAY, "/tmp/day") ||
die "Error opening file!";
$RUNDAY = (<DAY>);
%Backup_Day = (
   Sunday => "0",
   Monday => "1",
   Tuesday => "2",
   Wednesday => "3",
   Thursday => "4",
   Friday => "6",
);
$SLOT = $Backup_Day{$RUNDAY};
print "Slot Number is $SLOT\n";