#!/usr/bin/perl

use strict;
use Time::Zone;
use Date::Format;
use Date::Parse;


my $TZ = 'America/New_York';
my $now = scalar localtime time() + tz_offset($TZ);

my $today = time2str( "%m-%d-%Y \@ %H:%M:%S", $now);

# I am trying to format the result like this = 09-30-2010 @ 21:45:06

print "Today: $today\n";