my $outfile = "output.txt";

open (OUTFILE, ">> $outfile") || die "ERROR: opening $outfile\n"; 

chomp ($host);
   print OUTFILE "Results for $host:\n";
   print OUTFILE "$results\n\n";