use Net::Telnet;

use strict;
use warnings;

my $t = new Net::Telnet(timeout => 10, Errmode => "return", Prompt => '/\[AAUA1\]/');
$t->open("ofgaix1");
$t->login("foo", "bar");
print "errmsg: " . $t->errmsg . "\n";

##</code><code>##

errmsg: login failed: filehandle isn't open