Just a hunch, but...

Is this line

    my ($host)=GetHost($url);
[download]

doing any DNS-ish stuff ? If so, I'd suspect that's your bottleneck, and you'll need to look into a smarter hostname cache solution. Threads will help, but probably not as much as you'd hope.