use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/lib/perl5/site_perl/5.8.5";
BEGIN {
    use Config;
    require lib;

        print "archname:$Config{archname}\n";

    if ($Config{archname} =~ /^x86_64/) {
        print "x86_64\n";
        lib->import(
        "$FindBin::Bin/lib64/perl5/5.8.5/x86_64-linux-thread-multi",
        "$FindBin::Bin/lib64/perl5/site_perl/5.8.5/x86_64-linux-thread-multi");
    } else {
        print "i386\n";
        lib->import(
        "$FindBin::Bin/lib/perl5/5.8.5/i386-linux-thread-multi",
        "$FindBin::Bin/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi");
    }
}

use utf8;

use threads;

use Carp;
use IO::Socket::SSL;
use IO::Select;
use Log::Log4perl;