$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";