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

##</code><code>##

($std, $dst) = POSIX::tzname();
system ("echo $std x $dst > /tmp/cgi.out");
system ("echo $ENV{TZ}   >> /tmp/cgi.out");