Select Code to Download

binmode ARGV; # <> reads from ARGV implicitly
my $HL7 = <>;
...

my $sock = ...;
binmode $sock;