#!/usr/bin/env perl

use strict;
use Data::Dump qw(dump);
use POSIX qw(strftime);

# Force locale to German?
#POSIX::setlocale(POSIX::LC_TIME(), 'de_DE.UTF-8');

my $lc_time  = POSIX::setlocale(POSIX::LC_TIME())  || 'C';

print "Locale: LC_TIME: $lc_time\n";

# %A, %B |%d, %Y => WWWW, MMMM DD, YYYY

my $time = 1300547576; # March 19
my $date = strftime("%A, %B |%d, %Y", localtime($time));
$date =~ s/\|0*//;

print "$date\n";
print dump($date) . "\n";