Select Code to Download

print "Enter User:\n";
$luser=<STDIN>;
...
print PFILE "$luser|$pass";
close PFIFLE;

open (PFILE,"pass.bin") or die ("unable to open file $!\n");
binmode PFILE;
...
}