perl, v5.8.0 built for sun4-solaris
SunOS 5.8 Generic_108528-15 sun4u sparc SUNW,Ultra-250

##</code><code>##

HP-UX B.11.11 U 9000/800 (tc)

##</code><code>##

my $t = new Net::Telnet (Timeout => 30, Prompt => '/[:\$%#>]  $/');
$t->input_log(\*STDOUT);
$t->telnetmode(1);
$t->open($hostip);
$t->login($user, $pass);

##</code><code>##

.^[ i^M ... ^M.^[* ... ^MTERM = (hp)