[perl #17733] Net::Telnet - Problem on HP-UX

[via RT]

# New Ticket Created by  George 
# Please include the string:  [perl #17733]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17733 >


Hello,

The following script (with real $host,$user and $pwd)

use Net::Telnet;
$host='hhhhh';
$user='uuuuu';
$pwd='ppppp';

$telnet = new Net::Telnet ( Timeout=>10,
                            Errmode=>'die',
                            Prompt => '/\$ $/i');
$telnet->open($host);
$telnet->login($user, $pwd);
print $telnet->cmd('who');


is working fine on PC using "perl, v5.6.1 built for cygwin-multi"
   e.g.
   $ perl t.pl
   bkosag     pts/ta       Oct  2 09:16
   root       pts/tb       Jul 16 09:15
   bkuenr     ttyp1        Oct  1 14:19
   root       pts/tc       Jul 22 09:21
   bkosag2    pts/td       Oct  2 11:34
   root       pts/th       Sep 16 17:07
   root       pts/ti       Jul 24 15:38

BUT,

on Unix (HP-UX  B.11.00 U 9000/800) 
with "perl, v5.6.1 built for PA-RISC2.0" is not printing result,
   e.g.
   ssus31:/home/bkosag/gk/t/telnet$ perl t.pl
   ssus31:/home/bkosag/gk/t/telnet$

Is this known problem?

How can it be fixed?

Thanks,
George.