#!/usr/bin/env perl

use strict;
use POSIX qw(strftime);

# Check locale
my $lc_time  = POSIX::setlocale(POSIX::LC_TIME())  || 'C';
my $lc_ctype = POSIX::setlocale(POSIX::LC_CTYPE()) || 'C';

print "Locale: LC_TIME $lc_time, LC_CTYPE $lc_ctype\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";