in reply to Trying to capture error message using telnet::net

Have you tried using eval? 
eval {
    $telnet->open("$console_server");
    print "errmsg: " . $telnet->errmsg . "\n";
}

[download]

In Section Seekers of Perl Wisdom