Select Code to Download

echo myarg | perl -nle 'print "ARG=<$_>\n"'
ARG=<myarg>

my ($hostname) = @ARGV;
die "usage: $0 hostname" unless $hostname;
...
                                  Proto => 'tcp', 
                               );