All those comments and noone has even mentioned DateTime?

my $dt = DateTime( day => $day,
                   month => $month,
                   year  => $year );

if ($dt->day_name eq 'Friday') {
    print "Thank god it's Friday\n";
}