Scanner Russian Hackers

#!/usr/bin/perl
#Criado By : Spawn
 use LWP::UserAgent;
print " ██████╗ ██╗   ██╗███████╗███████╗██╗ █████╗ ███╗   ██╗    ██╗  ██╗ █████╗  ██████╗██╗  ██╗███████╗██████╗ ███████╗\n";
print " ██╔══██╗██║   ██║██╔════╝██╔════╝██║██╔══██╗████╗  ██║    ██║  ██║██╔══██╗██╔════╝██║ ██╔╝██╔════╝██╔══██╗██╔════╝\n";
print " ██████╔╝██║   ██║███████╗███████╗██║███████║██╔██╗ ██║    ███████║███████║██║     █████╔╝ █████╗  ██████╔╝███████╗\n";
print " ██╔══██╗██║   ██║╚════██║╚════██║██║██╔══██║██║╚██╗██║    ██╔══██║██╔══██║██║     ██╔═██╗ ██╔══╝  ██╔══██╗╚════██║\n";
print " ██║  ██║╚██████╔╝███████║███████║██║██║  ██║██║ ╚████║    ██║  ██║██║  ██║╚██████╗██║  ██╗███████╗██║  ██║███████║\n";
print " ╚═╝  ╚═╝ ╚═════╝ ╚══════╝╚══════╝╚═╝╚═╝  ╚═╝╚═╝  ╚═══╝    ╚═╝  ╚═╝╚═╝  ╚═╝ ╚═════╝╚═╝  ╚═╝╚══════╝╚═╝  ╚═╝╚══════╝\n";
print "Digite um dork: ex:(noticias.php?id=100)\n" ;
print "->";
$dork = <STDIN>;
chomp($dork);
for ($i = 0; $i < 1000; $i += 10) {
$b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)');
$b->timeout(30);
$b->env_proxy;
$c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content;
$check = index($c, 'sb_pagN');
while (1) {
$n = index($c, '<h3><a href="');
if ($n == -1) {
last;
}
$c = substr($c, $n + 13);
$s = substr($c, 0, index($c, '"'));
open (txt,">>lista.txt");
print txt  $s,"\n";
close(txt);
}
if ($check == -1) {
last;
}
}
system("lista.txt");
exit;