use DateTime;
use DateTime::TimeZone;

{
        my $dt = DateTime->now->set_time_zone('Pacific/Auckland');
        print "Zeitunterschied in Stunden von UTC : " . $dt->offset/3600 . "\n";
}