#!/usr/bin/perl -w

use strict;
use POSIX;

my ($std, $dst) = POSIX::tzname();

print "std: $std\n";
print "dst: $dst\n";
print "TZ: " . ($ENV{TZ} || "Unset") . "\n";

##</code><code>##

on Win32 machine:
 std: Russian Standard Time
 dst: Russian Daylight Time
 TZ: Unset
on linux machine:
 std: GMT
 dst: GMT
 TZ: Unset

##</code><code>##

<?php
$stz = date("Z");
echo $stz/60/60;
?>