#!/usr/bin/perl

$timenow = time;

$ENV{'TZ'} = "JST-2";

   @dt = localtime($timenow);
   dtprint(@dt);

$ENV{'TZ'} = "JST-9";

   @dt = localtime($timenow);
   dtprint(@dt);

   @dt = gmtime($timenow);
   dtprint(@dt);

exit;

sub dtprint {
local(@dt) = @_;
	$dt[5] += 1900;
	$dt[4]++;
	print "$dt[5]/$dt[4]/$dt[3] $dt[2]:$dt[1]:$dt[0]\n";
}