Perl MD5 Cracker

lol. Works

#!/usr/bin/perl

use Digest::MD5 ‘md5_hex’;

@char = (’a’..’z', ‘A’..’Z',0..9,’`',’-',’=',’~',’!',’@',’$',’%',’^', ‘&’,'*’,'(’,')’,'_’,'+’,'{’,'}’,'|’,':’,'”‘,’<’,'>’,’ ‘);

print “Enter the MD5 hash…\n”;

chomp($hash = <STDIN>);
$hash =~ s/^\s+//g;
$hash =~ s/\s+$//g;

&bad_use unless length($hash) eq 32;
makelist();

sub makelist {