[Source] Private Perl Admin Finder

Code:
useHTTP::Request;
useLWP::UserAgent;

system('cls');
print
"====================================================================
\n";
print"[Mr.P-teo]AdminPageScanner
+\n\n";
print"URLmustcontainhttp://\n";
print
"====================================================================
\n\n";
print"Website:";
chomp($url=<STDIN>);
my$file="admins.txt";
open(FH,"<$file")ordie"Can't
open$fileforread:$!";
my@directorys;
while(<FH>){
push(@directorys,$_);
}
closeFHordie"Cannotclose$file:
$!";
my$amount=0;
my$success=0;
my$useful=0;
foreach$ways(@directorys){
$amount++;
my$web=$url."/".$ways;
my$req=HTTP::Request->new(GET=>$web);
my$ua=LWP::UserAgent->new();
$ua->timeout(30);
my$response=$ua->request($req);
if($response->content=~/404Not
Found/){
}elsif($response->content=~/Page
Cannotbedisplayed/){
}else{
if($response->content=~/
username/||
$response->content=~/password/||
$response->content=~/admin/||
$response->content=~/login/||
$response->content=~/administration/
||
$response->content=~/authorisation/
||
$response->content=~/signin/||
$response->content=~/signin/||
$response->content=~/user/){
print"\n\tPageFound=>$web";
$success++;
}
}
}
print"\n\n
\n------------------------------------------
\n[$amountScanned]+[$success
Found]\n-------------------------------------------
\n\n";