Select Code to Download

use threads;
use Socket     qw( AF_UNIX SOCK_STREAM PF_UNSPEC );
...

    close($stdin_w); # Close this threads's copy.
}

use IO::Select qw( );

...
}

print "$stdin_buf\n" if length($stdin_buf);