use Date::Manip;
my $date2 = "$timestamp";
Date_Init("TZ=EST");
my $http_date = UnixDate(ParseDate("$date2 -0500"), "%a, %d %b %Y %H:%M:%S %Z");

##</code><code>##

$date->config("setdate","now,EST");