##########################START######################
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request;

print "Working...\n";

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(15);

open (URL_PLANETS,"url_planets.txt");
my @urls = <URL_PLANETS>;

foreach my $planet (@urls)  {
    open (NAMES,">>planet_names.txt");
    print "Downloading: " , $planet , "\n";
    my $req = HTTP::Request->new(GET => $planet);
    my $response = $ua->request($req);
    my $content = $response->content();
    print NAMES $content =~ m@Rotations<i>(.*)</i>@m,"\n";
}

close(URL_PLANETS);
close(NAMES);
###############################END########################