Select Code to Download

#!/usr/bin/perl

...

print "Read hosts:\n";
print $_,$/ for @hosts;

do_something hosts
do_something < hosts
...
type
type
type