Welcome to the Metzler-Nolte group

Last update: // use Time::localtime; my $hour = localtime->hour; my $min = localtime->min; $stunde=sprintf('%02d', $hour); $minute=sprintf('%02d', $min); if ($stunde gt 12) { $stunde = $stunde-12; print "| $stunde pm "; } else { print "| $stunde am "; }