#! perl -slw
use strict;

unless( $ENV{TZ} ) {
    $ENV{TZ} = 'PST8PDT';
    exec "$^X $0";
}

print scalar localtime;

__END__
P:\test>524251

P:\test>Thu Jan 19 12:32:30 2006