#CFG config
#------------------------------------------------
#--- GMT Time -----------------------------------
our %config;
$config{'gmt_time'} = 2;    #How many hours will be setup
$config{'gmt_func'} = '+';   #what we need - or +

sub make_time {
        use POSIX;
        my ( $sec, $min, $hour, $mday, $mon, $year )=localtime(time);
        $min="0$min" if ($min < 9);
        $hour=$hour.$config{'gmt_func'}.$config{'gmt_time'};
        $config{'now'}=int POSIX::strftime("\%H\%M",$sec,$min,$hour,$mday,$mon,$year);
        $config{'today'}=POSIX::strftime("\%Y-\%m-\%d",$sec,$min,$hour,$mday,$mon,$year);
        return;
}

use DateTime;
use DateTime::TimeZone;

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