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