use Date::Manip;
$ENV{TZ} = 'EST';
print UnixDate(ParseDate("today"),"%c");
#use Date::Manip;$ENV{TZ}=;print UnixDate(ParseDate(),)

use DateTime;
print DateTime->now(time_zone=>'Australia/Melbourne')->strftime("%c");
#use DateTime;print DateTime->now(time_zone=>)->strftime()