docs say ErrorMode needs a coderef:
try something like this....

$$telnet = new Net::Telnet( Timeout=>7, 
Errormode=> sub { &report_error($error_msg); },
) or die "Bang, ya got me...$!";
[download]

I think you need to set your prompt too BTW...