Select Code to Download

#!/usr/local/bin/perl

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

print "$HTML\n";