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