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