Select Code to Download

#!/usr/bin/perl
use warnings;
...

my $ref;
my $peerC = 1;

my $server = new IO::Socket::INET(
    Timeout   => 500,
...
    my $thr = threads->new( \&processit, $client, $fileno, $peerhost )
+->detach();

}

sub processit {
...

}