Select Code to Download

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

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

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