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

##</code><code>##

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

##</code><code>##

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) {
        ....
    }
}