$tm=time;

print scalar(gmtime($tm)), "\n";
print scalar(localtime($tm)), "\n";

require POSIX;
$ENV{TZ} = 'UTC';
POSIX::tzset();

print scalar(gmtime($tm)), "\n";
print scalar(localtime($tm)), "\n";

##</code><code>##

Sun Apr  8 21:29:55 2012
Sun Apr  8 17:29:55 2012
Sun Apr  8 21:29:55 2012
Sun Apr  8 21:29:55 2012