*Net::FTP::debug_print = sub { my ($cmd,$out,$txt) = @_; $debug .= $txt; };