#!/usr/bin/perl -w

use Date::Manip;

$today = ParseDate("today");         # Heutiges Datum

@days = qw/Montag Dienstag Mittwoch
           Donnerstag Freitag Samstag Sonntag/;

$dow = UnixDate($today, "%w");       # Wochentagsnummer (1-7)

$german_day = $days[$dow-1];         # Index-Zugriff (0-6)

print UnixDate($today, "$german_day, den %d.%m.%Y"), "\n";