use strict;
    use warnings;
    use threads;
    use IO::Socket::INET;
     
    my $s = IO::Socket::INET->new(PeerAddr => 'localhost',
                                  PeerPort => 80,
                                  Proto => 'tcp') or die "error: $@";
     
    print "create t1\n";
     
    my $t1 = threads->create(sub {
            my ($r) = @_;
            my $data = '';
     
            print "in t1\n";
     
            # this intentionally blocks. if this line is removed the problem vanishes
            $r->recv($data, 64);
     
            print "recv done\n";
    }, $s);
     
    print "create t2\n";
     
    my $t2 = threads->create(sub {
            print "in t2\n"; # problem: this is never printed
    }, 0);
     
    print "done\n"; # problem: this is never printed, as threads->create never returns
     
    $t1->join();
    $t2->join();