use strict;
use warnings;

my $time = time;

# Wenn man alle Angaben will:
#    0    1    2     3     4    5     6     7     8
my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)
        = localtime(time);

# Im skalaren Kontext:
my $timestr = localtime(time);

print "Sekunden seit dem 1.1.1970 0 Uhr: ", $time, "\n";
print "Standardformat..................: $timestr\n";
print "Wochentag.......................: $wday\n";
print "Tag im Jahr.....................: $yday\n";

# Wenn man nur die Uhrzeit braucht:
($sec, $min, $hour) = (localtime($time))[0,1,2];

printf("Aktuelle Uhrzeit................: %02d:%02d:%02d\n",
        $hour, $min, $sec);

# Wenn man nur das Datum braucht:
($day, $mon, $year) = (localtime($time))[3,4,5];
$mon ++; $year += 1900;

printf("Aktuelles Datum.................: %02d.%02d.%04d\n",
        $day, $mon, $year);

my @moname = qw(Januar Februar März April Mai Juni Juli
                August September Oktober November Dezember);

printf("Aktuelles Datum.................: %02d. %s %04d\n",
        $day, $moname[$mon-1], $year);

$isdst ? print " (Sommerzeit)\n" : print "(Normalzeit)\n";