use Date::Format;
my $format = "%a %b %d %l:%M %p ;%Z"; 
print time2str($format, time);