Select Code to Download

$Expect::Exp_Internal = 1;
my $exp =  Expect->new();
...
                          exp_continue; }]) or warn("error : " .$exp->
+exp_error());

Spawned 'scp test.txt  foo@bar:/tmp/test.txt '
        spawn id(6)
...

foo@bar's password: