sub date {

my @days   = ('Sonntag','Montag','Dienstag','Mittwoch',

               'Donnerstag','Freitag','Samstag');

my $time = time() ;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time+($tzone*3600)) ;

$mon = $mon+1 ;

$sec  = "0" . $sec 	if ($sec  < 10) ;

$min  = "0" . $min 	if ($min  < 10) ;

$hour = "0" . $hour if ($hour < 10) ;

$mon  = "0" . $mon 	if ($mon  < 10) ;

$mday = "0" . $mday if ($mday < 10) ;

$year = 1900+$year ;

my $datum = $mday . "." . $mon . "." . $year ;	# 22.11.2002

my $zeit = $hour . ":" . $min ;					# 19:14

return $fulldate = $days[$wday] . ", den " . $datum . " | " . $zeit ;

}