open(HTMLFILE,">pingresults.html") || die "Couldn't open pingresults";
close (HTMLFILE);

##</code><code>##

open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresults\n";
print HTMLFILE "$HTML\n";
close (HTMLFILE);

##</code><code>##

# open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresults\n";
print STDOUT "$HTML\n";
# close (HTMLFILE);