my $slot = (localtime)[6];  # 0..6 for Sun..Sat

if ($slot == 6) {
   $slot = undef;     # undef for Sat.
elsif ($slot == 5) {
   $slot = 6;         # 6 for Fri.
}

print "Slot Number is $slot\n";