use Date::Manip;
$ENV{TZ}="CET";
&Date_Init( "Language=German" );
print &UnixDate( "heute", "%A, den %m. %B %Y um %H:%M Uhr" );