Help for this page

Select Code to Download

Select or download this

my %messages = (
         'both' => 'Please enter both a Screen Name and a password',
...
{
    print $i,"\n";
}

Select or download this

C:\MYPERL>perl stoopid.pl
badchars=
...
The Screen Name or password is incorrect, please try again
Please enter both a Screen Name and a password
Your Screen Name and password are on their way to you!