use Time::Local qw( timelocal );

my $date = '10/15/2008';

my ($m, $d, $y) = split(m{/}, $date);
my $time = timelocal(0, 0, 0, $d, $m-1, $y);
my $dow = (localtime($time))[6];

if ($dow == 5) {
   print("It's Friiiiiiiiday!\n");
} elsif ($dow == 0 || $dow == 6) {
   print("Sweet heavenly weekend!\n");
} else {
   print("Get back to work, you bum!\n");
}