<perl>
($x, $x, $x, $x, $mon, $jahr) = localtime(time);
$jahr = $jahr + 1900;
if (++$mon < 10) { $mon = '0'.$mon; }
if ( $mon eq '01' ) { $monat = 'Januar '.$jahr; }