If you're familiar with POSIX's strftime function, you can use Perl's locale features to modify strftime's behavior, depending upon the current locale.

use POSIX qw(locale_h setlocale strftime);

setlocale(LC_TIME, "de");
$de_time = strftime(...);
[download]