my $ua = LWP::UserAgent->new;
      $ua->proxy('http', "http://$ad:$pt"); # assume this is a working IP with a port number
      $ua->timeout(5);
      my ($one, $two) = split(/::/, $shuffled[$urlcnt]); #one is the URL, two is a custom referer url
      $ua->default_header('Referer' => "$two"); # added my own referer
      my $response = $ua->get($one);

        # my attempt at scraping the page and manually GETting the verification link
        $response->content =~ m/image\.php\?id=(\d+)\&check=([a-zA-Z0-9]+)/;
        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", "fap.html") or die "Error: $!";