Select Code to Download

use Expect;
$Expect::Debug = 1;
my $string= '/usr/bin/ssh x.x.x.x'
my $exp=Expect->spawn($string) || die "error $!\n"

 spawned '/usr/bin/ssh x.x.x.x'
spawn id(3)
        Pid: 3399
...
eval {...} called at test.pl line 0
spawn id(3) closed.
Pid 3399 of spawn id(3) terminated, Status: 0x01