Select Code to Download

use Expect;

...
my $cmd = Expect->spawn('/usr/bin/sshfs', 'root@moto:/mnt/sdcard/eBook
+s', 'mnt') or die $!;
$cmd->expect(undef,  'root@moto\'s password: ');
$cmd->send("XXXX\n");

Spawned '/usr/bin/sshfs root@moto:/mnt/sdcard/eBooks mnt'
    spawn id(3)
...
Sending 'XXXX\n' to spawn id(3)
 at /home/mh/perl5/perlbrew/perls/perl-5.18.1/lib/site_perl/5.18.1/Exp
+ect.pm line 1264.
    Expect::print('Expect=GLOB(0xfe0ab8)', 'XXXX\x{a}') called at ./mn
+t.pl line 13