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