open (PFILE,"pass.bin") or die ("unable to open file $!\n");
binmode PFILE;
while ($line=<PFILE>){
$line=unpack("A*",$line);
}