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

##</code><code>##

perl -MNet::FTP::A -MIO::Socket::INET -e 'print Net::FTP::A->can("new") || "can not", "\n"'
CODE(0x10f3d70)