my ($sec, $min, $hour, $day, $month, $year, $wday, $yday, $isdst) = localtime();

printf "Heute ist der %02d.%02d.%04d, %02d:%02d:%02d.\n", $day, $month+1, $year+1900, $hour, $min, $sec;
_ _END_ _
Heute ist der 28.08.2003, 23:44:35.