while( 1 ) {
    my $c = $lsn->accept;
    print "Client connected: $c";
    threads->create( \&do_stuff, $c )->detach;
    undef $c;
}