Select Code to Download

use IO::Select;
use IO::Socket;
...
print "\$rc=<$rc>\n";
print "\$! <$!>\n";
print "\$@ <$@>\n";

tuser> echo "x" |nc localhost 8080

$rc=<3>;
$! <Illegal seek>
$@ <>
tuser>