my $date_england = time ;
my $tz_offset    = -8 ;
my $date_pacific = time + ( $tz_offset * 3600 ) ; 

print "England: ", scalar localtime( $date_england ), $/ ;
print "Pacific: ", scalar localtime( $date_pacific ), $/ ;