use Date::Format;

$today_date = strftime "%m/%d/%Y %T %Z", localtime(), -3;