#!/usr/bin/perl -w

use LWP::Simple;
use strict;
my @urls = qw!http://www.cnn.com/
http://www.bbc.com/
http://www.news.com/!;

for (@urls) { 
&get_em($_);
}

sub get_em { 
my $url = shift;
$url =~ m!http://www.(.*?)/!;
if ($pid = fork) {  } 
elsif ($pid == 0 ) { 
getstore($url, "$1.txt");
}
}