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