use Digest::MD5 qw(md5_hex);
Time::HiRes;

$start = time();

my $target  = "540df7f83845146f0287ff6d2da77900";
my $md5 = "";
print "Cracking...";
for my $str ('a'..'zzzzzzz')
{
  $md5 = md5_hex($str);
  if ($md5 eq $target)
 {
     print "\n";
     print $str;
     last;
 }

}
print "\n";
print (time()-$start) / 60 . " Minutes.\n"