Can anyone tell me why this Perl script won't make a binary file? I'll include the...

[J needs Help]

...script in a detail.? print "Please enter the Username you wish to have: ";
while (<STDIN>) {
$user = $_;
open (FILE, '>' . $user . '.bin');
if (-e FILE) {
print "Username has been taken." and exit;
}
else {
print "Please enter the Password you wish to use: ";
while (<STDIN>) {
$pass = $_;
open (FILE, '>' . $user . '.bin');
print OUT $pass;
print "You now have a Username of $user and a Password of $pass.";
}
}
}