use strict;
use warnings;
use POSIX qw(strftime); 
my $datestring = strftime "%B %d %Y", localtime;
print("date  - $datestring\n");