Select Code to Download

    $sftp = Expect->spawn("sftp $toyName\@$targetServer") || die("Coul
+dn't spawn sftp, $!");
    $sftp->expect(5, "Password:  ") || die("Never got password prompt 
+on $targetServer, ".$sftp->exp_error()."\n");
...
    $sftp->expect(5, "sftp\> ") || die("Never got sftp prompt on $targ
+etServer, ".$sftp->exp_error()."\n");
    print ($sftp "put $backupFileName\r");
    $sftp->expect(120, "sftp> ") || die("Never got password prompt on 
+$targetServer after upload, ".$stfp->exp_error()."\n");

Spawned 'sftp user@<host_ip>'
      spawn id(3)
...
      eval {...} called at lifch.pl line 0
spawn id(3) closed.
Pid 23271 of spawn id(3) terminated, Status: 0x100