и опять perl...и опять помогите пожалуйста

[programming]

код

use IO::Socket;

if (@ARGV < 2) {

}

$server = $ARGV[0];

$dir = $ARGV[1];

$search = $ARGV[2];

$socket = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$server",PeerPort => "80") || die $socket error $!";

$exe = "http://$server/";

$exe .= $dir . $search;



print $socket "GET $exe HTTP/1.0\r\n\r\n";



while ($op = <$socket>) {



if ($op =~ /^www/) {

}

print $op;



}



хочу написать скрипт, который бы из поисковика выдергивал url

например, нужно найти все сайты с index.php?action=

я передаю $server, значение www.google.ru

$dir - если это google, то search?hl=

$search - inurl:index.php?action=

но получается 301 Moved, то есть "постоянно перемещаемый"

как можно замутить, чтоб скрипт переходил в поисковике, с страницы 1 на 2 и т.д.

или все это фигня и зря стараюсь