use POSIX;
use POSIX qw(strftime);

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
print print POSIX::strftime('%I:%M:%S %p - %a, %B %d, %Y',$sec, $min, $hour, $wday, $mon, $year, $mday);

# 10:12:47 AM Mon, August 01, 2016