Obviously your login is failing.
I've only used Net::Telnet a couple of times, and not on a Cisco, but I find that just issuing a carriage return and then sending the password ( via a $obj->cmd("\n$password")) works OK as a login.