Select Code to Download

#!D:\Perl\bin -w

...
   print OUT "$box\n"; # print each $box on a newline
}
close OUT;

# this will take a file and read it in and resolve hostname 
...

close(IN);
close(OUT);