open( my $LFTP,'|-', "lftp -u $user,$pass -e open $host " ) || die "Cannot open lftp: $!";
print $LFTP <<"END";
ls
END