Select Code to Download

#!/usr/bin/perl

...
our $new_sock = $sock->accept() or die "No one came!";
my $pid = open3( "<&" . fileno($new_sock), ">&STDOUT", ">&STDERR", "/b
+in/cat" );
waitpid( $pid, 0 );

sh-3.2# ./test.pl 
open3: close(5) failed: Bad file number at ./test.pl line 21
...
    root  6124  6106   1 12:57:29 pts/3       0:00 grep /bin/cat
    root  6122     1   1 12:57:21 pts/3       0:00 /bin/cat
sh-3.2# Blah blah this is text coming from my telnet session