Select Code to Download

#!/s/std/bin/perl -w

...
    while(<STDIN>) { print $sock $_ }
}
close($sock);

Connecting to xxx
ls**
...
somefile
...