Select Code to Download

my $conn_command = "ssh -l $user -p 22 $ip";
my $ct = Expect->spawn($conn_command) or die "Cannot spawn $conn_comma
+nd: $!\n";

my $ct = new Expect;
$ct->slave->clone_winsize_from(\*STDIN);
$ct->spawn($conn_command) or die "Cannot spawn $conn_command: $!\n";