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

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