$tempfileone = "/var/www/cgi-bin/logs/ipsectest/iptestscript$userips[$ipcontrol].txt";
$urlone = "http://notgivingthesite/cgi-bin/block-lookup\?$userips[$ipcontrol]";
$mechone = WWW::Mechanize->new();
print Dumper $mechone->get( $urlone, ':content_file' => $tempfileone );