betterworld+2008-04-22 01:58:48--

Code: (dl )

1
2
3

use POSIX qw(locale_h strftime);
setlocale( LC_ALL, "de_DE.ISO8859-1" );
print strftime( "%p", localtime( time + 40000 ) );

Also bei mir Debian Perl5.8.4 läufts fix durch und gibt %p aus
(vermute jetzt aber das das nicht der gewünschte Effekt ist... : )

Gruß
Kurt