open (PASSWD "+</.stickum.txt");

##</code><code>##

open (PASSWD, "+</.stickum.txt");

##</code><code>##

"+</.stickum.txt"

##</code><code>##

"+>>/.stickum.txt"

##</code><code>##

print "What is the new passord?\n";
feistal($password);

##</code><code>##

print "What is the new passord?\n";
$password = <STDIN>;
feistal($password);

##</code><code>##

sub user{
    print "Account name:\n";
    while (<>){
           $username=$_;
           chomp $username;
           &query;
           }
} #corrected comile error

##</code><code>##

sub user{
    print "Account name: ";
    $username = <STDIN>;
    while ($username == ""){
           print "Account name: ";
           $username = <STDIN>;
    }
    &query
}