$telnetobj = new Net::Telnet->new(Timeout => 120,
                                  Prompt=> '/X>/',
                                  Binmode    => 1,
                                  Errmode   => "return",
                                  Output_record_separator => "\n",
                                  Input_log  => $file_log);
$telnetobj->open($HOH{$JOB}{Node});
$telnetobj->prompt('/login: /');
$telnetobj->print(''); #add one <CR> to display login
my $loginpmpt = '/login: /';
$telnetobj->waitfor($loginpmpt);
$telnetobj->print($HOH{$JOB}{'Login'});
$telnetobj->waitfor('/Password:/');
$telnetobj->print($HOH{$JOB}{"Password"});

$telnetobj->prompt;
$telnetobj->waitfor(/X>/);
$telnetobj->prompt();
$telnetobj->print("who");
$telnetobj->put();
my @stuff = $telnetobj->cmd("cat $filename");
$telnetobj->waitfor(/X>/);
$telnetobj->close; ## close telnet session");