if ( $res->content =~ /NISTSendTime = new Date\(\s*\"(.*?)"\);/ ) 
      {
       print "NIST Date/Time: $1<br>\n";
       @words=split(" ",$1);
       print "GMT ".$words[3]."<br>";
       @time=split(":",$words[3]);
       $gmt=$words[3];
       $temp=$gmt-5;
       if ($temp < 0) {$temp=24-5};
       $local=$temp.":".$time[1].":".$time[2];
       print "LOCAL ".$local."<br>";
   }