use threads;
use WWW::Curl::Easy;

my $x = WWW::Curl::Easy->new();

my $t = threads->create(sub{ 
        print STDERR "thread sleeping\n";
        #Do stuff NOT related to WWW::Curl
        sleep 1;
        print STDERR "thread exiting\n";
});

print STDERR "main sleeping\n";
sleep 3;
$t->join();
print STDERR "main exiting\n";
exit 0;