perl -MNet::FTP::A -e 'print Net::FTP::A->can("new") || "can not", "\n"'
can not