$ftp->_ALLO(-s _) if -f $loc; # no ALLO if sending data from a pipe