Thanks!

I solved my issue by changing:

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

to:

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

Thanks all for the help.

André Saunite