Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
           print $server $msg;
        }           
});

#!/usr/bin/perl
use strict;
...
        print "Client connected ", $thr->tid,"\n";
        $thr->detach;
}