Select Code to Download

            if ( $thr->tid && !threads::equal( $thr, th +reads->self )
+ ) {
##########Not Sure #######
...
                    my $thrnew = thread->new( \&compare, $client );
                    $sema->up;
                }

#!/usr/bin/perl

...
    }

}