Select Code to Download

elsif (/env/i) {my $out = `set`; $out =~ s/\012/\015\012/g; print $cli
+ent2 $out;}

my $socket = IO::Socket::INET->new( Proto     => 'tcp',
                                 LocalPort => $PORT,
...
.
.
.