Select Code to Download

hostname1.com
Gateway FAIL
hostname2.com
Gateway FAIL

print $line, "\n\n";

print $line, "\n";

my $last;
while (my $line = <$fh>) {
...
    print $line, "\n";
    $last = $line;
}