Item 2 and 4 on the Basic debugging checklist: look at your data.

use strict;
use warnings;
use POSIX qw(strftime); 
my @lt = localtime;
use Data::Dumper;
print Dumper(\@lt);
my $datestring = strftime "%B %d %Y", @lt;
print("date  - $datestring\n");
[download]

Please post the output.