sub getGMDelta
  {
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime(time);
    $ltime = timelocal($sec,$min,$hour,$mday,$mon,$year);
    $gtime = timegm($sec,$min,$hour,$mday,$mon,$year);
    $rv = $gtime - $ltime;
    return($rv);
}