Select Code to Download

#!/usr/bin/perl
#
...
my $msg = <STDIN>;
print $sock "$msg\n";
close $sock;

#!/usr/bin/perl
#
...
    print $_;
}
close $sock;