if ( $res->content =~ /NISTSendTime = new Date\(\s*\"(.*?)"\);/ )
{
print "NIST Date/Time: $1
\n";
@words=split(" ",$1);
print "GMT ".$words[3]."
";
@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."
";
}