So how to work with socks proxies on PERL

[Xiled]

I have a problem including Socks.pm
I love perl but sometimes it makes me mad: Why static include is such a complicated task??
imporing is such a simple thing in python: write down import foo
and foo serached in this dir

I need to work with socks proxies, since did not support them i have to do though socket stuff.
I am not a professional in SOCKS headers and authentifications to write directly to socket so to go through connection stage as simple as possible
i have downloaded IO::Socket::Socks and of course hosting provider don`t have that module.
And so my journey on google beginned i surfed 2 days but nothing.

Here is what i did to staticaly include Socks.pm:
1. I placed Socks.pl in "/var/www/html/test/jester/proxy/socks"
and the running script also lies there
2. Writed down this in script
use lib qw(/var/www/html/test/jester/proxy/socks);
this line seems adding "/var/www/html/test/jester/proxy/socks" to the top of the @INC;


#!/usr/bin/perl -W

use strict;
use lib qw(/var/www/html/test/jester/proxy/socks);

use IO::Socket::Socks;
#use Socks;

my $socks = new IO::Socket::Socks(ProxyAddr=>"XX.XXX.XX.XX",
ProxyPort=>"1080",
ConnectAddr=>"google.com",
ConnectPort=>"80",
);
print $socks "foo\n";
$socks->close();


The code above gives an error:

BEGIN failed--compilation aborted at ./goof.pl line 7

if uncomment use Socks and comment IO::Socket::Socks; like this:

use Socks;
my $socks = new IO::Socket::Socks(ProxyAddr=>"XX.XXX.XX.XX",
ProxyPort=>"1080",
ConnectAddr=>"google.com",
ConnectPort=>"80",
);
print $socks "foo\n";
$socks->close();

this code above throws at start up (because $socks is somehow undef):

Can't use an undefined value as a symbol reference at ./goof.pl line 15.

I tryed a whole bunch of variations like:

use Socks;
my $socks = IO::Socket::Socks->new



use IO::Socket::Socks;
my $socks = new IO::Socket::Socks


I think the problem lies inside the Socks.pm , here is a piece of source code of Socks.pm:

# sub new is handled by IO::Socket::INET

new sub handled by IO::Socket::INET !!!!!!!!!!
How i can make them work together??
Could anyone give me a clue how to work with SOCKS proxies in perl?
I can open socket but i am a newbie in sockets and SOCKS protocols
simple GET on HTTP proxy works fine but when connecting SOCKS proxy
it seems you must send haeder including version,Auth_type,dest ....
i dont know how to send this header and pack...

So how to work with socks proxies on PERL???