M
^[[01m[root@host ~ ]^[[m # hostname^M
prdoradb03^M
^[[01m[root@host ~ ]^[[m # uptime^M
  3:15pm  up 9 day(s), 15:59,  3 users,  load average: 5.04, 5.59, 5.32^M
^[[01m[root@host ~ ]^[[m # passwd amagana^M
New Password: ^M
Re-enter new Password: ^M
passwd: password successfully changed for amagana^M
^[[01m[root@host ~ ]^[[m # exit^M
logout^M
$

##</code><code>##

$ssh->log_file($filename);
$ssh->debug(1);
$ssh->print_log_file($header);
$ssh->expect ( $timeout,
      [ qr/Password:/],
      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]

 );