$ perl -wMstrict -MDateTime -le 'print DateTime->new(year=>$_,time_zone=>"Pacific/Apia")->strftime("%Y %z") for qw/ 2010 2012 /'
2010 -1100
2012 +1400