use strict;
use warnings;

my ($sec, $min, $std, $tt, $mm, $jjjj, $dow, $doy, $sumtime) 
   = localtime(time);
$mm++; $doy++; $jjjj += 1900;

$mm  = sprintf("%02d", $mm);
$tt  = sprintf("%02d", $tt);
$std = sprintf("%02d", $std);
$min = sprintf("%02d", $min);
$sec = sprintf("%02d", $sec);

my @tagname = ("Sonntag","Montag","Dienstag","Mittwoch",   
               "Donnerstag","Freitag","Samstag");
my @monatname = ("0","Januar","Februar","März","April",
                 "Mai","Juni","Juli","August","September",
                 "Oktober","November","Dezember");
 
print "Datum (1): $tagname[$dow], ",
      "der $tt.$mm.$jjjj\n";
      
print "Datum (2): $tagname[$dow], ",
      "der $tt. $monatname[$mm] $jjjj\n";

print "Uhrzeit  : $std:$min:$sec Uhr ";
$sumtime ? print " (Sommerzeit)\n" : print "(Normalzeit)\n";