END { my @pp = 'pp', '-n'; foreach(keys %INC){ s[/][::]g; s/\.pm$//; push @pp, '-M', $_; } push @pp, __FILE__; print "@pp $/"; } #### pp -M Crypt::OpenPGP::Plaintext -M Carp -M Crypt::OpenPGP::Buffer -M Crypt::Random::Generator -M lib -M Crypt::OpenPGP::Util -M IO::Socket::UNIX -M Crypt::OpenPGP::Signature::SubPacket -M Crypt::OpenPGP::Key::Public::DSA -M constant -M Convert::ASCII::Armour -M IO::Socket::INET -M Crypt::DES -M strict -M Crypt::OpenPGP::Key -M vars -M base -M Config -M Crypt::RSA::DataFormat -M Crypt::CBC -M Digest::SHA1 -M Crypt::Random::Provider::devurandom -M Crypt::RSA::Key::Public -M Data::Dumper -M Crypt::OpenPGP::Certificate -M Crypt::OpenPGP::Key::Public -M Crypt::RSA -M Crypt::OpenPGP::Key::Public::RSA -M Crypt::DSA::Key -M MIME::Base64 -M Symbol -M Exporter::Heavy -M Crypt::OpenPGP::Signature -M bytes -M C:::Perl::site::lib::auto::Compress::Zlib::autosplit.ix -M Crypt::OpenPGP::Ciphertext -M Crypt::OpenPGP::PacketFactory -M Crypt::RSA::Errorhandler -M Crypt::Random::Provider::egd -M IO::Handle -M Crypt::OpenPGP::Key::Secret -M Crypt::OpenPGP -M Crypt::OpenPGP::ErrorHandler -M Crypt::OpenPGP::Config -M Math::Pari -M Crypt::OpenPGP::Key::Public::ElGamal -M Crypt::OpenPGP::KeyRing -M Exporter -M IO::Socket -M Errno -M Crypt::OpenPGP::Digest -M subs -M DynaLoader -M File::Spec::Unix -M Crypt::Random -M Crypt::Random::Provider::rand -M Crypt::RSA::Key::Private -M SelectSaver -M Crypt::OpenPGP::S2k -M IO -M Crypt::OpenPGP::Message -M File::Spec::Win32 -M Class::Loader -M Socket -M Crypt::OpenPGP::KeyBlock -M Crypt::OpenPGP::SessionKey -M Crypt::OpenPGP::Armour -M integer -M Compress::Zlib -M XSLoader -M Digest::MD5 -M Crypt::DES_EDE3 -M Crypt::OpenPGP::CFB -M Crypt::OpenPGP::Constants -M Tie::EncryptedHash -M File::Spec -M Crypt::RSA::Key -M warnings::register -M warnings -M Crypt::Primes -M Crypt::OpenPGP::UserID -M overload -M Crypt::DSA::Util -M Crypt::OpenPGP::Cipher -M AutoLoader -M Crypt::Random::Provider::File -M Data::Buffer test.pl