# epoch-date in $epoch
use POSIX;
my $formatted_date = 
  POSIX::strftime("%A %d %B %Y @ %I:%M%p %Z",localtime($epoch));