#!/usr/bin/perl

use Time::Zone;
use Date::Format;


my ($today_date, $today_time) = get_timezone();

sub get_timezone {

$ENV{'TZ'} = 'America/New_York';
$today_date = time2str( "%Y/%m/%d", time); 

# Need the time without the seconds in %r
$today_time = time2str( "%r", time);

return $today_date, $today_time;
}

print "\n Date: $today_date - $today_time \n";