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

if (fork == 0) {
        #Do stuff NOT related to WWW::Curl here..
        print STDERR "thread sleeping\n";
        sleep 1;
        print STDERR "thread exiting\n";
        exit;
}

print STDERR "main sleeping\n";
sleep 3;
print STDERR "main exiting\n";
exit 0;