FM / man3

/usr/local/share/man/man3

Name	Size	Mode	Actions
App::Prove.3pm	10508	0444	edit dl rm
App::Prove::State.3pm	6005	0444	edit dl rm
App::Prove::State::Result.3pm	5619	0444	edit dl rm
App::Prove::State::Result::Test.3pm	5051	0444	edit dl rm
AppConfig.3pm	35289	0444	edit dl rm
AppConfig::Args.3pm	7992	0444	edit dl rm
AppConfig::CGI.3pm	6609	0444	edit dl rm
AppConfig::File.3pm	12614	0444	edit dl rm
AppConfig::Getopt.3pm	7444	0444	edit dl rm
AppConfig::State.3pm	24972	0444	edit dl rm
AppConfig::Sys.3pm	6695	0444	edit dl rm
Archive::Tar.3pm	44061	0444	edit dl rm
Archive::Tar::File.3pm	11083	0444	edit dl rm
Archive::Zip.3pm	69985	0444	edit dl rm
Archive::Zip::FAQ.3pm	18437	0444	edit dl rm
Archive::Zip::MemberRead.3pm	6734	0444	edit dl rm
Archive::Zip::Tree.3pm	2875	0444	edit dl rm
B::COW.3pm	5163	0444	edit dl rm
Canary::Stability.3pm	3727	0444	edit dl rm
CDB_File.3pm	14318	0444	edit dl rm
common::sense.3pm	0	0444	edit dl rm
Compress::Raw::Bzip2.3pm	13463	0444	edit dl rm
Compress::Raw::Zlib.3pm	42082	0444	edit dl rm
Compress::Zlib.3pm	38719	0444	edit dl rm
CPAN::Meta.3pm	15923	0444	edit dl rm
CPAN::Meta::Converter.3pm	6594	0444	edit dl rm
CPAN::Meta::Feature.3pm	4322	0444	edit dl rm
CPAN::Meta::History.3pm	7855	0444	edit dl rm
CPAN::Meta::History::Meta_1_0.3pm	9973	0444	edit dl rm
CPAN::Meta::History::Meta_1_1.3pm	12410	0444	edit dl rm
CPAN::Meta::History::Meta_1_2.3pm	22224	0444	edit dl rm
CPAN::Meta::History::Meta_1_3.3pm	23974	0444	edit dl rm
CPAN::Meta::History::Meta_1_4.3pm	24565	0444	edit dl rm
CPAN::Meta::Merge.3pm	5285	0444	edit dl rm
CPAN::Meta::Prereqs.3pm	7380	0444	edit dl rm
CPAN::Meta::Requirements.3pm	12308	0444	edit dl rm
CPAN::Meta::Spec.3pm	45592	0444	edit dl rm
CPAN::Meta::Validator.3pm	4215	0444	edit dl rm
CPAN::Meta::YAML.3pm	4230	0444	edit dl rm
Crypt::OpenSSL::Random.3pm	5634	0444	edit dl rm
Curses.3pm	37580	0444	edit dl rm
Curses::UI.3pm	15619	0444	edit dl rm
Curses::UI::Buttonbox.3pm	8908	0444	edit dl rm
Curses::UI::Calendar.3pm	8203	0444	edit dl rm
Curses::UI::Checkbox.3pm	6509	0444	edit dl rm
Curses::UI::Color.3pm	5903	0444	edit dl rm
Curses::UI::Common.3pm	6498	0444	edit dl rm
Curses::UI::Container.3pm	9041	0444	edit dl rm
Curses::UI::Dialog::Basic.3pm	5213	0444	edit dl rm
Curses::UI::Dialog::Calendar.3pm	4761	0444	edit dl rm
Curses::UI::Dialog::Dirbrowser.3pm	5369	0444	edit dl rm
Curses::UI::Dialog::Error.3pm	4307	0444	edit dl rm
Curses::UI::Dialog::Filebrowser.3pm	6889	0444	edit dl rm
Curses::UI::Dialog::Progress.3pm	5774	0444	edit dl rm
Curses::UI::Dialog::Question.3pm	5277	0444	edit dl rm
Curses::UI::Dialog::Status.3pm	4765	0444	edit dl rm
Curses::UI::Label.3pm	7333	0444	edit dl rm
Curses::UI::Listbox.3pm	11988	0444	edit dl rm
Curses::UI::Menubar.3pm	8110	0444	edit dl rm
Curses::UI::Notebook.3pm	9140	0444	edit dl rm
Curses::UI::PasswordEntry.3pm	3743	0444	edit dl rm
Curses::UI::Popupmenu.3pm	7431	0444	edit dl rm
Curses::UI::Progressbar.3pm	5891	0444	edit dl rm
Curses::UI::Radiobuttonbox.3pm	4069	0444	edit dl rm
Curses::UI::Searchable.3pm	6668	0444	edit dl rm
Curses::UI::TextEditor.3pm	14171	0444	edit dl rm
Curses::UI::TextEntry.3pm	3623	0444	edit dl rm
Curses::UI::TextViewer.3pm	3670	0444	edit dl rm
Curses::UI::Tutorial.3pm	8555	0444	edit dl rm
Curses::UI::Widget.3pm	25675	0444	edit dl rm
Curses::UI::Window.3pm	5084	0444	edit dl rm
Cwd.3pm	7183	0444	edit dl rm
Date::Format.3pm	7291	0444	edit dl rm
Date::Language.3pm	3809	0444	edit dl rm
Date::Language::Bulgarian.3pm	3675	0444	edit dl rm
Date::Language::Hungarian.3pm	3091	0444	edit dl rm
Date::Parse.3pm	5402	0444	edit dl rm
Digest::SHA.3pm	25759	0444	edit dl rm
Expect.3pm	60229	0444	edit dl rm
ExtUtils::CBuilder.3pm	11923	0444	edit dl rm
ExtUtils::CBuilder::Platform::Windows.3pm	3117	0444	edit dl rm
ExtUtils::Command.3pm	5942	0444	edit dl rm
ExtUtils::Command::MM.3pm	5723	0444	edit dl rm
ExtUtils::Liblist.3pm	12679	0444	edit dl rm
ExtUtils::MakeMaker.3pm	79357	0444	edit dl rm
ExtUtils::MakeMaker::Config.3pm	2587	0444	edit dl rm
ExtUtils::MakeMaker::FAQ.3pm	26829	0444	edit dl rm
ExtUtils::MakeMaker::Locale.3pm	11168	0444	edit dl rm
ExtUtils::MakeMaker::Tutorial.3pm	8389	0444	edit dl rm
ExtUtils::Manifest.3pm	11961	0444	edit dl rm
ExtUtils::Mkbootstrap.3pm	3459	0444	edit dl rm
ExtUtils::Mksymlists.3pm	6699	0444	edit dl rm
ExtUtils::MM.3pm	2829	0444	edit dl rm
ExtUtils::MM_AIX.3pm	3044	0444	edit dl rm
ExtUtils::MM_Any.3pm	31129	0444	edit dl rm
ExtUtils::MM_BeOS.3pm	2798	0444	edit dl rm
ExtUtils::MM_Cygwin.3pm	3569	0444	edit dl rm
ExtUtils::MM_Darwin.3pm	2688	0444	edit dl rm
ExtUtils::MM_DOS.3pm	3021	0444	edit dl rm
ExtUtils::MM_MacOS.3pm	2987	0444	edit dl rm
ExtUtils::MM_NW5.3pm	3200	0444	edit dl rm
ExtUtils::MM_OS2.3pm	2886	0444	edit dl rm
ExtUtils::MM_QNX.3pm	2942	0444	edit dl rm
ExtUtils::MM_Unix.3pm	21419	0444	edit dl rm
ExtUtils::MM_UWIN.3pm	3051	0444	edit dl rm
ExtUtils::MM_VMS.3pm	14900	0444	edit dl rm
ExtUtils::MM_VOS.3pm	2926	0444	edit dl rm
ExtUtils::MM_Win32.3pm	5919	0444	edit dl rm
ExtUtils::MM_Win95.3pm	3276	0444	edit dl rm
ExtUtils::MY.3pm	2764	0444	edit dl rm
ExtUtils::testlib.3pm	2690	0444	edit dl rm
File::GlobMapper.3pm	11447	0444	edit dl rm
File::HomeDir.3pm	18212	0444	edit dl rm
File::HomeDir::Darwin.3pm	3232	0444	edit dl rm
File::HomeDir::Darwin::Carbon.3pm	3517	0444	edit dl rm
File::HomeDir::Darwin::Cocoa.3pm	3446	0444	edit dl rm
File::HomeDir::Driver.3pm	3101	0444	edit dl rm
File::HomeDir::FreeDesktop.3pm	3487	0444	edit dl rm
File::HomeDir::MacOS9.3pm	3499	0444	edit dl rm
File::HomeDir::Test.3pm	3534	0444	edit dl rm
File::HomeDir::Unix.3pm	3638	0444	edit dl rm
File::HomeDir::Windows.3pm	4891	0444	edit dl rm
File::Path.3pm	31030	0444	edit dl rm
File::Slurp.3pm	23626	0444	edit dl rm
File::Spec.3pm	13784	0444	edit dl rm
File::Spec::AmigaOS.3pm	2826	0444	edit dl rm
File::Spec::Cygwin.3pm	3957	0444	edit dl rm
File::Spec::Epoc.3pm	3251	0444	edit dl rm
File::Spec::Functions.3pm	3799	0444	edit dl rm
File::Spec::Mac.3pm	18664	0444	edit dl rm
File::Spec::OS2.3pm	3118	0444	edit dl rm
File::Spec::Unix.3pm	9837	0444	edit dl rm
File::Spec::VMS.3pm	6389	0444	edit dl rm
File::Spec::Win32.3pm	6451	0444	edit dl rm
File::Temp.3pm	36799	0444	edit dl rm
File::Which.3pm	9746	0444	edit dl rm
Getopt::Long.3pm	52647	0444	edit dl rm
HDB.3pm	10947	0444	edit dl rm
HDB::CMDS.3pm	18894	0444	edit dl rm
HDB::Encode.3pm	7863	0444	edit dl rm
HDB::Object.3pm	10057	0444	edit dl rm
HTML::AsSubs.3pm	8586	0444	edit dl rm
HTML::Element.3pm	70793	0444	edit dl rm
HTML::Element::traverse.3pm	15984	0444	edit dl rm
HTML::Form.3pm	28158	0444	edit dl rm
HTML::Parse.3pm	8277	0444	edit dl rm
HTML::Tree.3pm	9982	0444	edit dl rm
HTML::Tree::AboutObjects.3pm	37918	0444	edit dl rm
HTML::Tree::AboutTrees.3pm	58534	0444	edit dl rm
HTML::Tree::Scanning.3pm	34385	0444	edit dl rm
HTML::TreeBuilder.3pm	30138	0444	edit dl rm
HTTP::Tiny.3pm	27709	0444	edit dl rm
IO::AtomicFile.3pm	5381	0444	edit dl rm
IO::Compress::Base.3pm	3506	0444	edit dl rm
IO::Compress::Bzip2.3pm	23260	0444	edit dl rm
IO::Compress::Deflate.3pm	26768	0444	edit dl rm
IO::Compress::FAQ.3pm	26718	0444	edit dl rm
IO::Compress::Gzip.3pm	34489	0444	edit dl rm
IO::Compress::RawDeflate.3pm	27134	0444	edit dl rm
IO::Compress::Zip.3pm	40870	0444	edit dl rm
IO::InnerFile.3pm	6035	0444	edit dl rm
IO::Lines.3pm	3783	0444	edit dl rm
IO::Pty.3pm	8579	0444	edit dl rm
IO::Scalar.3pm	10679	0444	edit dl rm
IO::ScalarArray.3pm	10528	0444	edit dl rm
IO::Stringy.3pm	4049	0444	edit dl rm
IO::Tty.3pm	8348	0444	edit dl rm
IO::Tty::Constant.3pm	10012	0444	edit dl rm
IO::Uncompress::AnyInflate.3pm	32800	0444	edit dl rm
IO::Uncompress::AnyUncompress.3pm	30767	0444	edit dl rm
IO::Uncompress::Base.3pm	3518	0444	edit dl rm
IO::Uncompress::Bunzip2.3pm	29171	0444	edit dl rm
IO::Uncompress::Gunzip.3pm	31719	0444	edit dl rm
IO::Uncompress::Inflate.3pm	29915	0444	edit dl rm
IO::Uncompress::RawInflate.3pm	29563	0444	edit dl rm
IO::Uncompress::Unzip.3pm	31279	0444	edit dl rm
IO::Wrap.3pm	10664	0444	edit dl rm
IO::WrapTie.3pm	14987	0444	edit dl rm
JSON::PP.3pm	50080	0444	edit dl rm
JSON::PP::Boolean.3pm	2667	0444	edit dl rm
JSON::Syck.3pm	8094	0444	edit dl rm
JSON::XS.3pm	89037	0444	edit dl rm
JSON::XS::Boolean.3pm	2857	0444	edit dl rm
lib::core::only.3pm	5647	0444	edit dl rm
local::lib.3pm	31390	0444	edit dl rm
LWP.3pm	28506	0444	edit dl rm
LWP::Authen::Ntlm.3pm	7489	0444	edit dl rm
LWP::ConnCache.3pm	9967	0444	edit dl rm
LWP::Debug.3pm	5608	0444	edit dl rm
LWP::MemberMixin.3pm	4821	0444	edit dl rm
LWP::Protocol.3pm	8350	0444	edit dl rm
LWP::Protocol::https.3pm	5684	0444	edit dl rm
LWP::RobotUA.3pm	9022	0444	edit dl rm
LWP::Simple.3pm	9016	0444	edit dl rm
LWP::UserAgent.3pm	48156	0444	edit dl rm
lwpcook.3pm	14838	0444	edit dl rm
lwptut.3pm	32441	0444	edit dl rm
Module::Build.3pm	44563	0444	edit dl rm
Module::Build::API.3pm	89267	0444	edit dl rm
Module::Build::Authoring.3pm	17363	0444	edit dl rm
Module::Build::Base.3pm	5157	0444	edit dl rm
Module::Build::Bundling.3pm	9999	0444	edit dl rm
Module::Build::Compat.3pm	10885	0444	edit dl rm
Module::Build::ConfigData.3pm	7388	0444	edit dl rm
Module::Build::Cookbook.3pm	25946	0444	edit dl rm
Module::Build::Notes.3pm	4690	0444	edit dl rm
Module::Build::Platform::aix.3pm	4472	0444	edit dl rm
Module::Build::Platform::cygwin.3pm	4505	0444	edit dl rm
Module::Build::Platform::darwin.3pm	4491	0444	edit dl rm
Module::Build::Platform::Default.3pm	4490	0444	edit dl rm
Module::Build::Platform::MacOS.3pm	5398	0444	edit dl rm
Module::Build::Platform::os2.3pm	4474	0444	edit dl rm
Module::Build::Platform::Unix.3pm	4481	0444	edit dl rm
Module::Build::Platform::VMS.3pm	7885	0444	edit dl rm
Module::Build::Platform::VOS.3pm	4477	0444	edit dl rm
Module::Build::Platform::Windows.3pm	4529	0444	edit dl rm
Module::Build::PPMMaker.3pm	4886	0444	edit dl rm
Mozilla::CA.3pm	3571	0444	edit dl rm
Net::CIDR::Lite.3pm	9562	0444	edit dl rm
Net::Cmd.3pm	11545	0444	edit dl rm
Net::Config.3pm	8100	0444	edit dl rm
Net::Domain.3pm	3835	0444	edit dl rm
Net::FTP.3pm	27341	0444	edit dl rm
Net::FTP::dataconn.3pm	3979	0444	edit dl rm
Net::HTTP.3pm	16375	0444	edit dl rm
Net::HTTP::NB.3pm	5394	0444	edit dl rm
Net::HTTPS.3pm	5438	0444	edit dl rm
Net::IP.3pm	27697	0444	edit dl rm
Net::libnetFAQ.3pm	14746	0444	edit dl rm
Net::Netrc.3pm	6729	0444	edit dl rm
Net::NNTP.3pm	23193	0444	edit dl rm
Net::POP3.3pm	12259	0444	edit dl rm
Net::SMTP.3pm	18880	0444	edit dl rm
Net::SSLeay.3pm	349350	0444	edit dl rm
Net::SSLeay::Handle.3pm	9127	0444	edit dl rm
Net::Time.3pm	4524	0444	edit dl rm
ok.3pm	2851	0444	edit dl rm
Parse::CPAN::Meta.3pm	10187	0444	edit dl rm
POD2::DE::local::lib.3pm	22879	0444	edit dl rm
POD2::PT_BR::local::lib.3pm	22762	0444	edit dl rm
Socket.3pm	34078	0444	edit dl rm
Sub::Identify.3pm	5087	0444	edit dl rm
SUPER.3pm	7394	0444	edit dl rm
Switch.3pm	19014	0444	edit dl rm
TAP::Base.3pm	3401	0444	edit dl rm
TAP::Formatter::Base.3pm	6233	0444	edit dl rm
TAP::Formatter::Color.3pm	3717	0444	edit dl rm
TAP::Formatter::Console.3pm	2722	0444	edit dl rm
TAP::Formatter::Console::ParallelSession.3pm	3065	0444	edit dl rm
TAP::Formatter::Console::Session.3pm	2832	0444	edit dl rm
TAP::Formatter::File.3pm	2693	0444	edit dl rm
TAP::Formatter::File::Session.3pm	2847	0444	edit dl rm
TAP::Formatter::Session.3pm	3603	0444	edit dl rm
TAP::Harness.3pm	21300	0444	edit dl rm
TAP::Harness::Beyond.3pm	19118	0444	edit dl rm
TAP::Harness::Env.3pm	5467	0444	edit dl rm
TAP::Object.3pm	4497	0444	edit dl rm
TAP::Parser.3pm	42210	0444	edit dl rm
TAP::Parser::Aggregator.3pm	8023	0444	edit dl rm
TAP::Parser::Grammar.3pm	8647	0444	edit dl rm
TAP::Parser::Iterator.3pm	4993	0444	edit dl rm
TAP::Parser::Iterator::Array.3pm	3771	0444	edit dl rm
TAP::Parser::Iterator::Process.3pm	4601	0444	edit dl rm
TAP::Parser::Iterator::Stream.3pm	3712	0444	edit dl rm
TAP::Parser::IteratorFactory.3pm	6904	0444	edit dl rm
TAP::Parser::Multiplexer.3pm	4646	0444	edit dl rm
TAP::Parser::Result.3pm	7512	0444	edit dl rm
TAP::Parser::Result::Bailout.3pm	3293	0444	edit dl rm
TAP::Parser::Result::Comment.3pm	3118	0444	edit dl rm
TAP::Parser::Result::Plan.3pm	4173	0444	edit dl rm
TAP::Parser::Result::Pragma.3pm	3073	0444	edit dl rm
TAP::Parser::Result::Test.3pm	7114	0444	edit dl rm
TAP::Parser::Result::Unknown.3pm	2973	0444	edit dl rm
TAP::Parser::Result::Version.3pm	3154	0444	edit dl rm
TAP::Parser::Result::YAML.3pm	3086	0444	edit dl rm
TAP::Parser::ResultFactory.3pm	5523	0444	edit dl rm
TAP::Parser::Scheduler.3pm	8113	0444	edit dl rm
TAP::Parser::Scheduler::Job.3pm	4301	0444	edit dl rm
TAP::Parser::Scheduler::Spinner.3pm	3346	0444	edit dl rm
TAP::Parser::Source.3pm	8170	0444	edit dl rm
TAP::Parser::SourceHandler.3pm	7559	0444	edit dl rm
TAP::Parser::SourceHandler::Executable.3pm	5297	0444	edit dl rm
TAP::Parser::SourceHandler::File.3pm	4567	0444	edit dl rm
TAP::Parser::SourceHandler::Handle.3pm	4425	0444	edit dl rm
TAP::Parser::SourceHandler::Perl.3pm	6262	0444	edit dl rm
TAP::Parser::SourceHandler::RawTAP.3pm	4434	0444	edit dl rm
TAP::Parser::YAMLish::Reader.3pm	3995	0444	edit dl rm
TAP::Parser::YAMLish::Writer.3pm	4879	0444	edit dl rm
Template.3pm	27909	0444	edit dl rm
Template::Base.3pm	8149	0444	edit dl rm
Template::Config.3pm	8687	0444	edit dl rm
Template::Constants.3pm	7815	0444	edit dl rm
Template::Context.3pm	26637	0444	edit dl rm
Template::Directive.3pm	4821	0444	edit dl rm
Template::Document.3pm	11829	0444	edit dl rm
Template::Exception.3pm	6763	0444	edit dl rm
Template::FAQ.3pm	14564	0444	edit dl rm
Template::Filters.3pm	9817	0444	edit dl rm
Template::Grammar.3pm	5039	0444	edit dl rm
Template::Iterator.3pm	11413	0444	edit dl rm
Template::Manual.3pm	6317	0444	edit dl rm
Template::Manual::Config.3pm	79504	0444	edit dl rm
Template::Manual::Credits.3pm	8246	0444	edit dl rm
Template::Manual::Directives.3pm	77293	0444	edit dl rm
Template::Manual::Filters.3pm	20810	0444	edit dl rm
Template::Manual::Internals.3pm	23433	0444	edit dl rm
Template::Manual::Intro.3pm	14092	0444	edit dl rm
Template::Manual::Plugins.3pm	13780	0444	edit dl rm
Template::Manual::Syntax.3pm	14549	0444	edit dl rm
Template::Manual::Variables.3pm	33110	0444	edit dl rm
Template::Manual::Views.3pm	25953	0444	edit dl rm
Template::Manual::VMethods.3pm	28195	0444	edit dl rm
Template::Modules.3pm	9827	0444	edit dl rm
Template::Namespace::Constants.3pm	6002	0444	edit dl rm
Template::Parser.3pm	9917	0444	edit dl rm
Template::Plugin.3pm	10937	0444	edit dl rm
Template::Plugin::Assert.3pm	5446	0444	edit dl rm
Template::Plugin::CGI.3pm	6188	0444	edit dl rm
Template::Plugin::Datafile.3pm	6601	0444	edit dl rm
Template::Plugin::Date.3pm	9538	0444	edit dl rm
Template::Plugin::Directory.3pm	11979	0444	edit dl rm
Template::Plugin::Dumper.3pm	6078	0444	edit dl rm
Template::Plugin::File.3pm	13009	0444	edit dl rm
Template::Plugin::Filter.3pm	12936	0444	edit dl rm
Template::Plugin::Format.3pm	4895	0444	edit dl rm
Template::Plugin::HTML.3pm	7823	0444	edit dl rm
Template::Plugin::Image.3pm	11950	0444	edit dl rm
Template::Plugin::Iterator.3pm	5061	0444	edit dl rm
Template::Plugin::Math.3pm	6623	0444	edit dl rm
Template::Plugin::Pod.3pm	4784	0444	edit dl rm
Template::Plugin::Procedural.3pm	5631	0444	edit dl rm
Template::Plugin::Scalar.3pm	5032	0444	edit dl rm
Template::Plugin::String.3pm	17263	0444	edit dl rm
Template::Plugin::Table.3pm	11145	0444	edit dl rm
Template::Plugin::URL.3pm	8080	0444	edit dl rm
Template::Plugin::View.3pm	5479	0444	edit dl rm
Template::Plugin::Wrap.3pm	6433	0444	edit dl rm
Template::Plugins.3pm	9733	0444	edit dl rm
Template::Provider.3pm	14678	0444	edit dl rm
Template::Service.3pm	14813	0444	edit dl rm
Template::Stash.3pm	11983	0444	edit dl rm
Template::Stash::Context.3pm	7130	0444	edit dl rm
Template::Stash::XS.3pm	6644	0444	edit dl rm
Template::Test.3pm	15524	0444	edit dl rm
Template::Toolkit.3pm	9227	0444	edit dl rm
Template::Tools.3pm	5001	0444	edit dl rm
Template::Tools::tpage.3pm	5806	0444	edit dl rm
Template::Tools::ttree.3pm	16567	0444	edit dl rm
Template::Tutorial.3pm	4566	0444	edit dl rm
Template::Tutorial::Datafile.3pm	19539	0444	edit dl rm
Template::Tutorial::Web.3pm	34118	0444	edit dl rm
Template::View.3pm	12618	0444	edit dl rm
Template::VMethods.3pm	4688	0444	edit dl rm
Term::ReadKey.3pm	13029	0444	edit dl rm
Test2.3pm	9556	0444	edit dl rm
Test2::API.3pm	30424	0444	edit dl rm
Test2::API::Breakage.3pm	4988	0444	edit dl rm
Test2::API::Context.3pm	17574	0444	edit dl rm
Test2::API::Instance.3pm	12404	0444	edit dl rm
Test2::API::Stack.3pm	6568	0444	edit dl rm
Test2::Event.3pm	9189	0444	edit dl rm
Test2::Event::Bail.3pm	3470	0444	edit dl rm
Test2::Event::Diag.3pm	3338	0444	edit dl rm
Test2::Event::Exception.3pm	3520	0444	edit dl rm
Test2::Event::Generic.3pm	7662	0444	edit dl rm
Test2::Event::Info.3pm	4261	0444	edit dl rm
Test2::Event::Note.3pm	3323	0444	edit dl rm
Test2::Event::Ok.3pm	4255	0444	edit dl rm
Test2::Event::Plan.3pm	3907	0444	edit dl rm
Test2::Event::Skip.3pm	3665	0444	edit dl rm
Test2::Event::Subtest.3pm	3573	0444	edit dl rm
Test2::Event::Waiting.3pm	3107	0444	edit dl rm
Test2::Formatter.3pm	5208	0444	edit dl rm
Test2::Formatter::TAP.3pm	9255	0444	edit dl rm
Test2::Hub.3pm	16755	0444	edit dl rm
Test2::Hub::Interceptor.3pm	2937	0444	edit dl rm
Test2::Hub::Interceptor::Terminator.3pm	2980	0444	edit dl rm
Test2::Hub::Subtest.3pm	3803	0444	edit dl rm
Test2::IPC.3pm	3324	0444	edit dl rm
Test2::IPC::Driver.3pm	9512	0444	edit dl rm
Test2::IPC::Driver::Files.3pm	3822	0444	edit dl rm
Test2::Transition.3pm	18406	0444	edit dl rm
Test2::Util.3pm	5123	0444	edit dl rm
Test2::Util::ExternalMeta.3pm	5594	0444	edit dl rm
Test2::Util::HashBase.3pm	7463	0444	edit dl rm
Test2::Util::Trace.3pm	5577	0444	edit dl rm
Test::Builder.3pm	26915	0444	edit dl rm
Test::Builder::Formatter.3pm	3656	0444	edit dl rm
Test::Builder::IO::Scalar.3pm	9740	0444	edit dl rm
Test::Builder::Module.3pm	5567	0444	edit dl rm
Test::Builder::Tester.3pm	11550	0444	edit dl rm
Test::Builder::Tester::Color.3pm	3131	0444	edit dl rm
Test::Builder::TodoDiag.3pm	3129	0444	edit dl rm
Test::Fatal.3pm	9303	0444	edit dl rm
Test::HACKING.3pm	9253	0444	edit dl rm
Test::Harness.3pm	11028	0444	edit dl rm
Test::LeakTrace.3pm	10022	0444	edit dl rm
Test::LeakTrace::JA.3pm	12328	0444	edit dl rm
Test::LeakTrace::Script.3pm	5140	0444	edit dl rm
Test::MockModule.3pm	10818	0444	edit dl rm
Test::More.3pm	43215	0444	edit dl rm
Test::More::UTF8.3pm	3602	0444	edit dl rm
Test::RequiresInternet.3pm	3944	0444	edit dl rm
Test::Simple.3pm	9119	0444	edit dl rm
Test::Tester.3pm	15781	0444	edit dl rm
Test::Tester::Capture.3pm	2902	0444	edit dl rm
Test::Tester::CaptureRunner.3pm	2673	0444	edit dl rm
Test::Tutorial.3pm	24261	0444	edit dl rm
Test::use::ok.3pm	3841	0444	edit dl rm
Test::Warnings.3pm	14231	0444	edit dl rm
Text::Glob.3pm	6106	0444	edit dl rm
Text::Template.3pm	65499	0444	edit dl rm
Text::Template::Preprocess.3pm	6270	0444	edit dl rm
Time::Zone.3pm	3413	0444	edit dl rm
TimeDate.3pm	2397	0444	edit dl rm
Try::Tiny.3pm	20343	0444	edit dl rm
Types::Serialiser.3pm	11473	0444	edit dl rm
Types::Serialiser::Error.3pm	2705	0444	edit dl rm
version.3pm	13937	0444	edit dl rm
version::Internals.3pm	30287	0444	edit dl rm
WWW::Mechanize.3pm	68196	0444	edit dl rm
WWW::Mechanize::Cookbook.3pm	7159	0444	edit dl rm
WWW::Mechanize::Examples.3pm	22490	0444	edit dl rm
WWW::Mechanize::FAQ.3pm	24359	0444	edit dl rm
WWW::Mechanize::Image.3pm	6490	0444	edit dl rm
WWW::Mechanize::Link.3pm	6518	0444	edit dl rm
XML::NamespaceSupport.3pm	13052	0444	edit dl rm
XML::Parser.3pm	26296	0444	edit dl rm
XML::Parser::Expat.3pm	26799	0444	edit dl rm
XML::Parser::Style::Debug.3pm	4408	0444	edit dl rm
XML::Parser::Style::Objects.3pm	4888	0444	edit dl rm
XML::Parser::Style::Stream.3pm	5925	0444	edit dl rm
XML::Parser::Style::Subs.3pm	4863	0444	edit dl rm
XML::Parser::Style::Tree.3pm	5529	0444	edit dl rm
XML::SAX.3pm	9229	0444	edit dl rm
XML::SAX::Base.3pm	13704	0444	edit dl rm
XML::SAX::BuildSAXBase.3pm	13700	0444	edit dl rm
XML::SAX::DocumentLocator.3pm	5239	0444	edit dl rm
XML::SAX::Exception.3pm	5622	0444	edit dl rm
XML::SAX::Expat.3pm	6404	0444	edit dl rm
XML::SAX::Intro.3pm	20220	0444	edit dl rm
XML::SAX::ParserFactory.3pm	7919	0444	edit dl rm
XML::SAX::PurePerl.3pm	6172	0444	edit dl rm
XML::SAX::PurePerl::Reader.3pm	4103	0444	edit dl rm
XML::Simple.3pm	65589	0444	edit dl rm
XML::Simple::FAQ.3pm	27223	0444	edit dl rm
YAML.3pm	29980	0444	edit dl rm
YAML::Any.3pm	7487	0444	edit dl rm
YAML::Dumper.3pm	4776	0444	edit dl rm
YAML::Dumper::Base.3pm	4642	0444	edit dl rm
YAML::Error.3pm	4681	0444	edit dl rm
YAML::Loader.3pm	4766	0444	edit dl rm
YAML::Loader::Base.3pm	4642	0444	edit dl rm
YAML::Marshall.3pm	4640	0444	edit dl rm
YAML::Node.3pm	6743	0444	edit dl rm
YAML::Syck.3pm	10806	0444	edit dl rm
YAML::Tag.3pm	4499	0444	edit dl rm
YAML::Types.3pm	4716	0444	edit dl rm

Edit: /usr/local/share/man/man3/WWW::Mechanize::Examples.3pm (22490B)

.\" Automatically generated by Pod::Man 2.27 (Pod::Simple 3.28)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{
.    if \nF \{
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "WWW::Mechanize::Examples 3"
.TH WWW::Mechanize::Examples 3 "2016-10-14" "perl v5.16.3" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
WWW::Mechanize::Examples \- Sample programs that use WWW::Mechanize
.SH "VERSION"
.IX Header "VERSION"
version 1.83
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
Plenty of people have learned WWW::Mechanize, and now, you can too!
.PP
Following are user-supplied samples of WWW::Mechanize in action.
If you have samples you'd like to contribute, please send 'em to
\&\f(CW\*(C`<andy@petdance.com>\*(C'\fR.
.PP
You can also look at the \fIt/*.t\fR files in the distribution.
.PP
Please note that these examples are not intended to do any specific task.
For all I know, they're no longer functional because the sites they
hit have changed.  They're here to give examples of how people have
used WWW::Mechanize.
.PP
Note that the examples are in reverse order of my having received them,
so the freshest examples are always at the top.
.SS "Starbucks Density Calculator, by Nat Torkington"
.IX Subsection "Starbucks Density Calculator, by Nat Torkington"
Here's a pair of programs from Nat Torkington, editor for O'Reilly Media
and co-author of the \fIPerl Cookbook\fR.
.Sp
.RS 4
Rael [Dornfest] discovered that you can easily find out how many Starbucks
there are in an area by searching for \*(L"Starbucks\*(R".  So I wrote a silly
scraper for some old census data and came up with some Starbucks density
figures.  There's no meaning to these numbers thanks to errors from using
old census data coupled with false positives in Yahoo search (e.g.,
\&\*(L"Dodie Starbuck-Your Style Desgn\*(R" in Portland \s-1OR\s0).  But it was fun to
waste a night on.
.Sp
Here are the top twenty cities in descending order of population,
with the amount of territory each Starbucks has.  E.g., A New York \s-1NY\s0
Starbucks covers 1.7 square miles of ground.
.Sp
.Vb 10
\&    New York, NY        1.7
\&    Los Angeles, CA     1.2
\&    Chicago, IL         1.0
\&    Houston, TX         4.6
\&    Philadelphia, PA    6.8
\&    San Diego, CA       2.7
\&    Detroit, MI        19.9
\&    Dallas, TX          2.7
\&    Phoenix, AZ         4.1
\&    San Antonio, TX    12.3
\&    San Jose, CA        1.1
\&    Baltimore, MD       3.9
\&    Indianapolis, IN   12.1
\&    San Francisco, CA   0.5
\&    Jacksonville, FL   39.9
\&    Columbus, OH        7.3
\&    Milwaukee, WI       5.1
\&    Memphis, TN        15.1
\&    Washington, DC      1.4
\&    Boston, MA          0.5
.Ve
.RE
.PP
\&\f(CW\*(C`get_pop_data\*(C'\fR
.PP
.Vb 1
\&    #!/usr/bin/perl \-w
\&
\&    use WWW::Mechanize;
\&    use Storable;
\&
\&    $url = \*(Aqhttp://www.census.gov/population/www/documentation/twps0027.html\*(Aq;
\&    $m = WWW::Mechanize\->new();
\&    $m\->get($url);
\&
\&    $c = $m\->content;
\&
\&    $c =~ m{<A NAME=.tabA.>(.*?)</TABLE>}s
\&      or die "Can\*(Aqt find the population table\en";
\&    $t = $1;
\&    @outer = $t =~ m{<TR.*?>(.*?)</TR>}gs;
\&    shift @outer;
\&    foreach $r (@outer) {
\&      @bits = $r =~ m{<TD.*?>(.*?)</TD>}gs;
\&      for ($x = 0; $x < @bits; $x++) {
\&        $b = $bits[$x];
\&        @v = split /\es*<BR>\es*/, $b;
\&        foreach (@v) { s/^\es+//; s/\es+$// }
\&        push @{$data[$x]}, @v;
\&      }
\&    }
\&
\&    for ($y = 0; $y < @{$data[0]}; $y++) {
\&        $data{$data[1][$y]} = {
\&            NAME => $data[1][$y],
\&            RANK => $data[0][$y],
\&            POP  => comma_free($data[2][$y]),
\&            AREA => comma_free($data[3][$y]),
\&            DENS => comma_free($data[4][$y]),
\&        };
\&    }
\&
\&    store(\e%data, "cities.dat");
\&
\&    sub comma_free {
\&      my $n = shift;
\&      $n =~ s/,//;
\&      return $n;
\&    }
.Ve
.PP
\&\f(CW\*(C`plague_of_coffee\*(C'\fR
.PP
.Vb 1
\&    #!/usr/bin/perl \-w
\&
\&    use WWW::Mechanize;
\&    use strict;
\&    use Storable;
\&
\&    $SIG{_\|_WARN_\|_} = sub {} ;  # ssssssh
\&
\&    my $Cities = retrieve("cities.dat");
\&
\&    my $m = WWW::Mechanize\->new();
\&    $m\->get("http://local.yahoo.com/");
\&
\&    my @cities = sort { $Cities\->{$a}{RANK} <=> $Cities\->{$b}{RANK} } keys %$Cities;
\&    foreach my $c ( @cities ) {
\&      my $fields = {
\&        \*(Aqstx\*(Aq => "starbucks",
\&        \*(Aqcsz\*(Aq => $c,
\&      };
\&
\&      my $r = $m\->submit_form(form_number => 2,
\&                              fields => $fields);
\&      die "Couldn\*(Aqt submit form" unless $r\->is_success;
\&
\&      my $hits = number_of_hits($r);
\&      #  my $ppl  = sprintf("%d", 1000 * $Cities\->{$c}{POP} / $hits);
\&      #  print "$c has $hits Starbucks.  That\*(Aqs one for every $ppl people.\en";
\&      my $density = sprintf("%.1f", $Cities\->{$c}{AREA} / $hits);
\&      print "$c : $density\en";
\&    }
\&
\&    sub number_of_hits {
\&      my $r = shift;
\&      my $c = $r\->content;
\&      if ($c =~ m{\ed+ out of <b>(\ed+)</b> total results for}) {
\&        return $1;
\&      }
\&      if ($c =~ m{Sorry, no .*? found in or near}) {
\&        return 0;
\&      }
\&      if ($c =~ m{Your search matched multiple cities}) {
\&        warn "Your search matched multiple cities\en";
\&        return 0;
\&      }
\&      if ($c =~ m{Sorry we couldn.t find that location}) {
\&        warn "No cities\en";
\&        return 0;
\&      }
\&      if ($c =~ m{Could not find.*?, showing results for}) {
\&        warn "No matches\en";
\&        return 0;
\&      }
\&      die "Unknown response\en$c\en";
\&    }
.Ve
.SS "pb-upload, by John Beppu"
.IX Subsection "pb-upload, by John Beppu"
This program takes filenames of images from the command line and
uploads them to a www.photobucket.com folder.  John Beppu, the author, says:
.Sp
.RS 4
I had 92 pictures I wanted to upload, and doing it through a browser
would've been torture.  But thanks to mech, all I had to do was
`./pb.upload *.jpg` and watch it do its thing.  It felt good.
If I had more time, I'd implement WWW::Photobucket on top of
WWW::Mechanize.
.RE
.PP
.Vb 1
\&    #!/usr/bin/perl \-w \-T
\&
\&    use strict;
\&    use WWW::Mechanize;
\&
\&    my $login    = "login_name";
\&    my $password = "password";
\&    my $folder   = "folder";
\&
\&    my $url = "http://img78.photobucket.com/albums/v281/$login/$folder/";
\&
\&    # login to your photobucket.com account
\&    my $mech = WWW::Mechanize\->new();
\&    $mech\->get($url);
\&    $mech\->submit_form(
\&        form_number => 1,
\&        fields      => { password => $password },
\&    );
\&    die unless ($mech\->success);
\&
\&    # upload image files specified on command line
\&    foreach (@ARGV) {
\&        print "$_\en";
\&        $mech\->form_number(2);
\&        $mech\->field(\*(Aqthe_file[]\*(Aq => $_);
\&        $mech\->submit();
\&    }
.Ve
.SS "listmod, by Ian Langworth"
.IX Subsection "listmod, by Ian Langworth"
Ian Langworth contributes this little gem that will bring joy to
beleaguered mailing list admins.  It discards spam messages through
mailman's web interface.
.PP
.Vb 8
\&    #!/arch/unix/bin/perl
\&    use strict;
\&    use warnings;
\&    #
\&    # listmod \- fast alternative to mailman list interface
\&    #
\&    # usage: listmod crew XXXXXXXX
\&    # 
\&
\&    die "usage: $0 <listname> <password>\en" unless @ARGV == 2;
\&    my ($listname, $password) = @ARGV;
\&
\&    use CGI qw(unescape);
\&
\&    use WWW::Mechanize;
\&    my $m = WWW::Mechanize\->new( autocheck => 1 );
\&
\&    use Term::ReadLine;
\&    my $term = Term::ReadLine\->new($0);
\&
\&    # submit the form, get the cookie, go to the list admin page
\&    $m\->get("https://lists.ccs.neu.edu/bin/admindb/$listname");
\&    $m\->set_visible( $password );
\&    $m\->click;
\&
\&    # exit if nothing to do
\&    print "There are no pending requests.\en" and exit
\&        if $m\->content =~ /There are no pending requests/;
\&
\&    # select the first form and examine its contents
\&    $m\->form_number(1);
\&    my $f = $m\->current_form or die "Couldn\*(Aqt get first form!\en";
\&
\&    # get me the base form element for each email item
\&    my @items = map {m/^.+?\-(.+)/} grep {m/senderbanp/} $f\->param
\&        or die "Couldn\*(Aqt get items in first form!\en";
\&
\&    # iterate through items, prompt user, commit actions
\&    foreach my $item (@items) {
\&
\&        # show item info
\&        my $sender = unescape($item);
\&        my ($subject) = [$f\->find_input("senderbanp\-$item")\->value_names]\->[1] 
\&            =~ /Subject:\es+(.+?)\es+Size:/g;
\&
\&        # prompt user
\&        my $choice = \*(Aq\*(Aq;
\&        while ( $choice !~ /^[DAX]$/ ) {
\&            print "$sender\e: \*(Aq$subject\*(Aq\en";
\&            $choice = uc $term\->readline("Action: defer/accept/discard [dax]: ");
\&            print "\en\en";
\&        }
\&
\&        # set button
\&        $m\->field("senderaction\-$item" => {D=>0,A=>1,X=>3}\->{$choice});
\&    }
\&
\&    # submit actions
\&    $m\->click;
.Ve
.SS "ccdl, by Andy Lester"
.IX Subsection "ccdl, by Andy Lester"
Steve McConnell, author of the landmark \fICode Complete\fR has put
up the chapters for the 2nd edition in \s-1PDF\s0 format on his website.
I needed to download them to take to Kinko's to have printed.  This
little program did it for me.
.PP
.Vb 1
\&    #!/usr/bin/perl \-w
\&
\&    use strict;
\&    use WWW::Mechanize;
\&
\&    my $start = "http://www.stevemcconnell.com/cc2/cc.htm";
\&
\&    my $mech = WWW::Mechanize\->new( autocheck => 1 );
\&    $mech\->get( $start );
\&
\&    my @links = $mech\->find_all_links( url_regex => qr/\ed+.+\e.pdf$/ );
\&
\&    for my $link ( @links ) {
\&        my $url = $link\->url_abs;
\&        my $filename = $url;
\&        $filename =~ s[^.+/][];
\&
\&        print "Fetching $url";
\&        $mech\->get( $url, \*(Aq:content_file\*(Aq => $filename );
\&
\&        print "   ", \-s $filename, " bytes\en";
\&    }
.Ve
.SS "quotes.pl, by Andy Lester"
.IX Subsection "quotes.pl, by Andy Lester"
This was a program that was going to get a hack in \fISpidering Hacks\fR,
but got cut at the last minute, probably because it's against \s-1IMDB\s0's \s-1TOS\s0
to scrape from it.  I present it here as an example, not a suggestion
that you break their \s-1TOS.\s0
.PP
Last I checked, it didn't work because their \s-1HTML\s0 didn't match, but it's
still good as sample code.
.PP
.Vb 1
\&    #!/usr/bin/perl \-w
\&    
\&    use strict;
\&    
\&    use WWW::Mechanize;
\&    use Getopt::Long;
\&    use Text::Wrap;
\&    
\&    my $match = undef;
\&    my $random = undef;
\&    GetOptions(
\&        "match=s" => \e$match,
\&        "random" => \e$random,
\&    ) or exit 1;
\&
\&    my $movie = shift @ARGV or die "Must specify a movie\en";
\&
\&    my $quotes_page = get_quotes_page( $movie );
\&    my @quotes = extract_quotes( $quotes_page );
\&
\&    if ( $match ) {
\&        $match = quotemeta($match);
\&        @quotes = grep /$match/i, @quotes;
\&    }
\&
\&    if ( $random ) {
\&        print $quotes[rand @quotes];
\&    }
\&    else {
\&        print join( "\en", @quotes );
\&    }
\&
\&
\&    sub get_quotes_page {
\&        my $movie = shift;
\&
\&        my $mech = WWW::Mechanize\->new;
\&        $mech\->get( "http://www.imdb.com/search" );
\&        $mech\->success or die "Can\*(Aqt get the search page";
\&
\&        $mech\->submit_form(
\&            form_number => 2,
\&            fields => {
\&                title   => $movie,
\&                restrict    => "Movies only",
\&            },
\&        );
\&
\&        my @links = $mech\->find_all_links( url_regex => qr[^/Title] )
\&            or die "No matches for \e"$movie\e" were found.\en";
\&
\&        # Use the first link
\&        my ( $url, $title ) = @{$links[0]};
\&
\&        warn "Checking $title...\en";
\&
\&        $mech\->get( $url );
\&        my $link = $mech\->find_link( text_regex => qr/Memorable Quotes/i )
\&            or die qq{"$title" has no quotes in IMDB!\en};
\&
\&        warn "Fetching quotes...\en\en";
\&        $mech\->get( $link\->[0] );
\&
\&        return $mech\->content;
\&    }
\&
\&
\&    sub extract_quotes {
\&        my $page = shift;
\&
\&        # Nibble away at the unwanted HTML at the beginnning...
\&        $page =~ s/.+Memorable Quotes//si;
\&        $page =~ s/.+?(<a name)/$1/si;
\&
\&        # ... and the end of the page
\&        $page =~ s/Browse titles in the movie quotes.+$//si;
\&        $page =~ s/<p.+$//g;
\&
\&        # Quotes separated by an <HR> tag
\&        my @quotes = split( /<hr.+?>/, $page );
\&
\&        for my $quote ( @quotes ) {
\&            my @lines = split( /<br>/, $quote );
\&            for ( @lines ) {
\&                s/<[^>]+>//g;   # Strip HTML tags
\&                s/\es+/ /g;          # Squash whitespace
\&                s/^ //;     # Strip leading space
\&                s/ $//;     # Strip trailing space
\&                s/&#34;/"/g;    # Replace HTML entity quotes
\&
\&                # Word\-wrap to fit in 72 columns
\&                $Text::Wrap::columns = 72;
\&                $_ = wrap( \*(Aq\*(Aq, \*(Aq    \*(Aq, $_ );
\&            }
\&            $quote = join( "\en", @lines );
\&        }
\&
\&        return @quotes;
\&    }
.Ve
.SS "cpansearch.pl, by Ed Silva"
.IX Subsection "cpansearch.pl, by Ed Silva"
A quick little utility to search the \s-1CPAN\s0 and fire up a browser
with a results page.
.PP
.Vb 1
\&    #!/usr/bin/perl
\&
\&    # turn on perl\*(Aqs safety features
\&    use strict;
\&    use warnings;
\&
\&    # work out the name of the module we\*(Aqre looking for
\&    my $module_name = $ARGV[0]
\&      or die "Must specify module name on command line";
\&
\&    # create a new browser
\&    use WWW::Mechanize;
\&    my $browser = WWW::Mechanize\->new();
\&
\&    # tell it to get the main page
\&    $browser\->get("http://search.cpan.org/");
\&
\&    # okay, fill in the box with the name of the
\&    # module we want to look up
\&    $browser\->form_number(1);
\&    $browser\->field("query", $module_name);
\&    $browser\->click();
\&
\&    # click on the link that matches the module name
\&    $browser\->follow_link( text_regex => $module_name );
\&
\&    my $url = $browser\->uri;
\&
\&    # launch a browser...
\&    system(\*(Aqgaleon\*(Aq, $url);
\&
\&    exit(0);
.Ve
.SS "lj_friends.cgi, by Matt Cashner"
.IX Subsection "lj_friends.cgi, by Matt Cashner"
.Vb 1
\&    #!/usr/bin/perl
\&
\&    # Provides an rss feed of a paid user\*(Aqs LiveJournal friends list
\&    # Full entries, protected entries, etc.
\&    # Add to your favorite rss reader as
\&    # http://your.site.com/cgi\-bin/lj_friends.cgi?user=USER&password=PASSWORD
\&
\&    use warnings;
\&    use strict;
\&
\&    use WWW::Mechanize;
\&    use CGI;
\&
\&    my $cgi = CGI\->new();
\&    my $form = $cgi\->Vars;
\&
\&    my $agent = WWW::Mechanize\->new();
\&
\&    $agent\->get(\*(Aqhttp://www.livejournal.com/login.bml\*(Aq);
\&    $agent\->form_number(\*(Aq3\*(Aq);
\&    $agent\->field(\*(Aquser\*(Aq,$form\->{user});
\&    $agent\->field(\*(Aqpassword\*(Aq,$form\->{password});
\&    $agent\->submit();
\&    $agent\->get(\*(Aqhttp://www.livejournal.com/customview.cgi?user=\*(Aq.$form\->{user}.\*(Aq&styleid=225596&checkcookies=1\*(Aq);
\&    print "Content\-type: text/plain\en\en";
\&    print $agent\->content();
.Ve
.SS "Hacking Movable Type, by Dan Rinzel"
.IX Subsection "Hacking Movable Type, by Dan Rinzel"
.Vb 2
\&    use strict;
\&    use WWW::Mechanize;
\&
\&    # a tool to automatically post entries to a moveable type weblog, and set arbitrary creation dates
\&
\&    my $mech = WWW::Mechanize\->new();
\&    my $entry;
\&    $entry\->{title} = "Test AutoEntry Title";
\&    $entry\->{btext} = "Test AutoEntry Body";
\&    $entry\->{date} = \*(Aq2002\-04\-15 14:18:00\*(Aq;
\&    my $start = qq|http://my.blog.site/mt.cgi|;
\&
\&    $mech\->get($start);
\&    $mech\->field(\*(Aqusername\*(Aq,\*(Aqund3f1n3d\*(Aq);
\&    $mech\->field(\*(Aqpassword\*(Aq,\*(Aqobscur3d\*(Aq);
\&    $mech\->submit(); # to get login cookie
\&    $mech\->get(qq|$start?_\|_mode=view&_type=entry&blog_id=1|);
\&    $mech\->form_name(\*(Aqentry_form\*(Aq);
\&    $mech\->field(\*(Aqtitle\*(Aq,$entry\->{title});
\&    $mech\->field(\*(Aqcategory_id\*(Aq,1); # adjust as needed
\&    $mech\->field(\*(Aqtext\*(Aq,$entry\->{btext});
\&    $mech\->field(\*(Aqstatus\*(Aq,2); # publish, or 1 = draft
\&    $results = $mech\->submit(); 
\&
\&    # if we\*(Aqre ok with this entry being datestamped "NOW" (no {date} in %entry)
\&    # we\*(Aqre done. Otherwise, time to be tricksy
\&    # MT returns a 302 redirect from this form. the redirect itself contains a <body onload=""> handler
\&    # which takes the user to an editable version of the form where the create date can be edited       
\&    # MT date format of YYYY\-MM\-DD HH:MI:SS is the only one that won\*(Aqt error out
\&
\&    if ($entry\->{date} && $entry\->{date} =~ /^\ed{4}\-\ed{2}\-\ed{2}\es+\ed{2}:\ed{2}:\ed{2}/) {
\&        # travel the redirect
\&        $results = $mech\->get($results\->{_headers}\->{location});
\&        $results\->{_content} =~ /<body onLoad="([^\e"]+)"/is;
\&        my $js = $1;
\&        $js =~ /\e\*(Aq([^\*(Aq]+)\e\*(Aq/;
\&        $results = $mech\->get($start.$1);
\&        $mech\->form_name(\*(Aqentry_form\*(Aq);
\&        $mech\->field(\*(Aqcreated_on_manual\*(Aq,$entry\->{date});
\&        $mech\->submit();
\&    }
.Ve
.SS "get-despair, by Randal Schwartz"
.IX Subsection "get-despair, by Randal Schwartz"
Randal submitted this bot that walks the despair.com site sucking down
all the pictures.
.PP
.Vb 2
\&    use strict; 
\&    $|++;
\&
\&    use WWW::Mechanize;
\&    use File::Basename; 
\&
\&    my $m = WWW::Mechanize\->new;
\&
\&    $m\->get("http://www.despair.com/indem.html");
\&
\&    my @top_links = @{$m\->links};
\&
\&    for my $top_link_num (0..$#top_links) {
\&        next unless $top_links[$top_link_num][0] =~ /^http:/; 
\&
\&        $m\->follow_link( n=>$top_link_num ) or die "can\*(Aqt follow $top_link_num";
\&
\&        print $m\->uri, "\en";
\&        for my $image (grep m{^http://store4}, map $_\->[0], @{$m\->links}) { 
\&            my $local = basename $image;
\&            print " $image...", $m\->mirror($image, $local)\->message, "\en"
\&        }
\&
\&        $m\->back or die "can\*(Aqt go back";
\&    }
.Ve
.SH "AUTHOR"
.IX Header "AUTHOR"
Andy Lester <andy at petdance.com>
.SH "COPYRIGHT AND LICENSE"
.IX Header "COPYRIGHT AND LICENSE"
This software is copyright (c) 2004\-2016 by Andy Lester.
.PP
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

cmd: