Select Code to Download

open my $socket, '+<&=' . $fileno or die $!;
........................^

my $server = threads::Server->new(
     LocalPort => 9000,
...
);

$server->Run;

package threads::Server;
use Smart::Comments::Lite '4';
...

=cut