print 'enter salt: ';
chomp($salt = <STDIN>);

print 'enter password hash file: ';
open(PASSC, <STDIN>) or die "cannot open password file: $!\n";
$passc = <PASSC>;

print 'enter wordlist: ';
open(PASSF, <STDIN>) or die "cannot open wordlist file: $!\n";
@list = <PASSF>;

for (@list) {
 $pwdcrypt = crypt $_, $salt;
  if ($pwdcrypt eq "$passc") {