#!/usr/bin/perl

$secs=time;
print "secs='$secs'\n";

$gmtvals=gmtime(time);
print "gmtime   ='$gmtvals'\n";

$locvals=localtime(time);
print "localtime='$locvals'\n";
print "\n";

($gmtsec,$gmtmin,$gmthr,$gmtday,$gmtmt,$gmtyr,$gmtwday,$gmtyday)=gmtime(time);
($locsec,$locmin,$lochr,$locday,$locmt,$locyr,$locwday,$locyday)=localtime(time);

$hr=$gmthr-$lochr;
print "'gmthr' - 'lochr' = hr\n";
print "'$gmthr' - '$lochr' = '$hr'\n";
print "\n";

print "add hr to lochr to get gmthr\n";
print "add timezone adj to gmthr to get timezone hour\n";
print "\n";

$psthr=$lochr + $hr -8;
print "psthr=lochr + hr + -8\n";
print "psthr='$lochr' + '$hr' + '-8' = '$psthr'\n";
print "\n";

$ccthr=$lochr + $hr + +8;
print "ccthr=lochr + hr + +8\n";
print "ccthr='$lochr' + '$hr' + '+8' = '$ccthr'\n";
print "\n";

$esthr=$lochr + $hr + -5;
print "esthr=lochr + hr + -5\n";
print "esthr='$lochr' + '$hr' + '-5' = '$esthr'\n";
print "\n";

  @zmtdays=(31,28,31,30,31,30,31,31,30,31,30,31);
$zrem=7%3;
print "zrem=7/3='$zrem'\n";
$zmtdays[1]++;
print "zmtdays='@zmtdays'\n";
print "zmtdays[0]='$zmtdays[0]'\n";
print "zmtdays[1]='$zmtdays[1]'\n";
print "zmtdays[2]='$zmtdays[2]'\n";
print "zmtdays[3]='$zmtdays[3]'\n";
print "zmtdays[4]='$zmtdays[4]'\n";
print "zmtdays[5]='$zmtdays[5]'\n";
print "zmtdays[6]='$zmtdays[6]'\n";
print "zmtdays[7]='$zmtdays[7]'\n";
print "zmtdays[8]='$zmtdays[8]'\n";
print "zmtdays[9]='$zmtdays[9]'\n";
print "zmtdays[10]='$zmtdays[10]'\n";
print "zmtdays[11]='$zmtdays[11]'\n";
print "zmtdays[12]='$zmtdays[12]'\n";


