or download this
my $ua = LWP::UserAgent->new;
$ua->proxy('http', "http://$ad:$pt"); # assume this is a working
+ IP with a port number
...
print "\t\t- http://imagefap.com/image.php?id=$1&check=$2 link
+\n";
$ua->get("http://imagefap.com/image.php?id=$1&check=$2");
$ua->mirror("http://imagefap.com/image.php?id=$1&check=$2", "f
+ap.html") or die "Error: $!";