use Time::Local;
$date="01.01.2002";
print "Der $date ist ein ";
print &Wochentag("$date");

sub Wochentag
  {
  my ($tag,$monat,$jahr,$time,$wtag);
  my @Wochentage=qw(Sonntag Monatag Dienstag Mittwoch Donnerstag Freitag Samstag);
  ($tag,$monat,$jahr)=split(/\./, @_[0]);
  $monat--;
  $time = timelocal(0,0,0,$tag,$monat,$jahr);
  $wtag = (localtime($time))[6];
  return @Wochentage[$wtag];
  }