Help for this page

Select Code to Download


  1. or download this
    use Time::Local;
use POSIX qw(tzset);
$ENV{TZ} = 'Europe/Berlin';
tzset();
  2. or download this
    ($std, $dst) = POSIX::tzname();
system ("echo $std x $dst > /tmp/cgi.out");
system ("echo $ENV{TZ}   >> /tmp/cgi.out");