use Time::Local; # wird mit perl mitgeliefert

# in epoch seconds umrechnen
my $t = timelocal(0, 0, 0, 24, 11, 2002); # monate 0-11

my $wd = (localtime $t)[6]; # 2 = dienstag