Select Code to Download

DateTime->from_epoch(epoch => $t, time_zone => 'local');

C:\>perl -MPOSIX=strftime -le "print strftime(q(%Z), localtime)"
AUS Central Standard Time

#!/usr/bin/perl -w
use strict;
...

my $dur = DateTime::Duration->new( hours => ($lh-$gh), minutes => ($lm
+-$gm));
print sprintf "%+02.2d%02d\n", $dur->in_units('hours','minutes');