my @cmd=('lftp', '-u', "$user,$pass", '-e', "open", "$host");
my $h = start \@cmd, \$in, \$out, \$err, timeout( 10 );

$in .= "ls\n";
$in .= "ls\n";
pump $h;
print $out;
finish $h;
[download]

do not work :( only print after the finish $h;