print "Enter User:\n";
$luser=<STDIN>;

print "Enter Pass:\n";
$pass=<STDIN>;

$luser=pack("A*",$luser);
$pass=pack("A*",$pass);

open (PFILE,">pass.bin") or die ("unable to open file $!\n");
binmode PFILE;
print PFILE "$luser|$pass";
close PFIFLE;