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");