use strict;

use threads;
use lib ('./');
use TEST::TEST;

TEST::TEST::createsock(1);

my $t1 = threads->create(\&TEST::TEST::mysub1, 1, "test 1");

select(undef, undef, undef, .25);

print "above mysub2\n";

my $t2 = threads->create(\&TEST::TEST::mysub2, 2, "test 2");

print "below mysub2\n";

$t2->join();