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

##</code><code>##

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

##</code><code>##

#!/usr/bin/perl -w
use strict;
use DateTime::Duration;

my ($lh, $lm) = (localtime)[2,1];
my ($gh, $gm) = (gmtime)[2,1];

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