Select Code to Download

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

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

"+</.stickum.txt"

"+>>/.stickum.txt"

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

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

sub user{
    print "Account name:\n";
...
           &query;
           }
} #corrected comile error

sub user{
    print "Account name: ";
...
    }
    &query
}