Select Code to Download

use Net::SSH::Expect;
use strict; 
...

my $login_output = $ssh->login();

my $cpscp = $ssh->exec("copy scp install ip addr  filename");
...
print("No string found\n");
}

$ssh->waitfor('Enter username for remote scp server:\s*\z ', 5) or die
+ "not found";
$ssh->send("root");