-----------this is a piece of code from shell.pl...-----------------
                print "Please log in.\n"; # line 36
                print "Username: ";
                my $username = <STDIN>;
                print chomp($username);
                print chomp($username); # line 40
                print "Password: ";
                ReadMode 2;
                my $password = <STDIN>;
                print chomp($password);
                print chomp($password); # line 45
                ReadMode 0;
                print "\n"; # line 47
---------------------and another piece later...---------------------
                        print "Wrong username: \n'$username'\n or password: \n'$password'\n.\n";
--------------------(the $username and $password are like this just for testing purposes)
-------------------then this is the output when using it locally...------------------
server:~/403ad# perl shell.pl
Welcome to 403AD!
Please log in.
Username: hello
10Password: 10
Wrong username: 
'hello'
 or password: 
'password'
.
-------and this is a part of the output of the server when using it through telnet...----------
server:~/403ad# perl -Tw main.pl
main.pl 26472: server started on port 3000 at Sun Jan 22 18:56:31 2006
main.pl 26472: connection from localhost.localdomain [ 127.0.0.1 ]
                at port 41725 at Sun Jan 22 18:56:33 2006
main.pl 26472: begat 26474 at Sun Jan 22 18:56:33 2006
Use of uninitialized value in scalar chomp at ./shell.pl line 39, <STDIN> line 2.
Use of uninitialized value in scalar chomp at ./shell.pl line 40, <STDIN> line 2.
-------.. and the things I see at the telnet client: ----------
server:~/403ad# telnet localhost 3000
Trying 127.0.0.1...
Connected to localhost.localdomain.
Escape character is '^]'.
Welcome to 403AD! Connecting to your shell....
Welcome to 403AD!
Please log in.
Username: hello
10Password: test
10
Wrong username: 
'hello
 or password: 
'test
.
Please log in.
Username: ^]
telnet> quit
Connection closed.