#!/usr/bin/perl
use strict;
use Time::Local;
my @days = qw/So Mo Di Mi Do Fr Sa/;
my $date = '12.11.2003';
my @date = split /\./,$date;

my $wday = $days[(localtime(timelocal(0,0,0,$date[0],$date[1]-1,$date[2]-1900)))[6]];

print "$date ist ein $wday\n";
_ _ END _ _
12.11.2003 ist ein Mi