C:\Users\mydesktop\Desktop\Perl>perl telnet2.pl
"my" variable $session masks earlier declaration in same scope at telnet2.pl line 25.
Useless use of private variable in void context at telnet2.pl line 26.
Use of uninitialized value within %users in string eq at telnet2.pl line 19.
Can't call method "login" on an undefined value at telnet2.pl line 22.
C:\Users\mydesktop\Desktop\Perl>