$exp->raw_pty(1);  
$exp->spawn(sprintf("%s %s -l %s %s", $cmd, $sshOpt, $userObj->user(), $remoteHost));
$exp->expect(10000, [ <PATTERN 1> => sub { $_[0]->send(<RESPONSE 1>); } ]);
...
$exp->expect(10000, [ <PATTERN n> => sub { $_[0]->send(<RESPONSE n>); } ]);