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

##</code><code>##

print HTMLFILE "This will print to file";
print "This will print to STDOUT";