Have you read the Net::Telnet debugging advice?

In your code, you have

if ($telnet->waitfor('/#/i')) {
...
[download]

But in the example session, there is no # character. Is that maybe the problem?