Select Code to Download

 
use strict;
use Net::Ping;
...
ping_hosts;
# Print Results to Terminal
print $output;

my $outfile = "output.txt";

...
   print OUTFILE "Results for $host:\n";
   print OUTFILE "$results\n\n";