#!/usr/bin/perl
use strict;
use warnings;
use DateTime;

# get current epoch time
my $epoch_time = time; 

# check if an epoch time is passed on command line
$epoch_time = $ARGV[0] if defined($ARGV[0]);

print "epoch: $epoch_time\n";

# if you need to specify timezone for an EPOCH TIME
my $dt =  DateTime->from_epoch(epoch => $epoch_time, time_zone => "EST5EDT");

# Fri Sep 28 05:23:57 2007
my $dt_string = $dt->strftime("%a %b %d %H:%M:%S %Y");

print "$dt_string\n";