use Time::Local;
use POSIX qw(tzset);
$ENV{TZ} = 'Europe/Berlin';
tzset();