my $url = "http://www.mysite.com/forums/";
[download]

it should run also with

my $url = "http://www.kite2fly.com/forum/sitemap.php";
[download]

If you want to run it agaist multiple URLs, just stuff them into an array and itereate over them:

my @urls = qw (
    http://www.mysite.com/forums/
    http://www.kite2fly.com/forum/sitemap.php
    http://www.mynak.com/forum/sitemap.php
    http://www.dizign.de/forum/sitemap.php
);
foreach my $url(@urls) {
    my @links; 
    get_threads($url); 

    foreach my $page (@links) {
        ....
    }
}
[download]

Or... what is exactly your problem?

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}