مشکل در قسمت use NET::HTTP در پرل

[po0ya_jo0n]

درود بر شما دوستان

یه سورس دارم که توی گوگل دنبال کلمه مثلا "Linux" می گرده و Result رو print میکنه.

اینا هاش :



use strict;
use warnings;
use NET::HTTP;
my $socket = IO::Socket::INET->new(PeerAddr => 'www.google.com',PeerPort => 80,Porto => 'tcp', Timeout => '18');
if ($socket){
print $socket sprintf "GET /cse?cx=partner-pub-9300639326172081%3Ad9bbzbtli15&ie=UTF-8&sa=Search&q=Linux&hl=en HTTP/1.0\n";
print $socket sprintf "Host: www.google.com\n";
print $socket sprintf "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.9) Gecko/20100825 Ubuntu/10.04 (Lucid) Firefox 3.6.9\n";
print $socket sprintf "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\n";
print $socket sprintf "Accept-Language: en-us,en;q=0.5\n";
print $socket sprintf "Proxy-Connection: close\n";
print $socket "\n";

my $line;
while ($line=<$sock>)
{
print $line;
}
close $sock if $sock;


و در لینوکس که اجراش میکنم برنامه کار میکنه. ولی در ویندوز که اجرا میکنم ارور میده :

اسم فایل : google.pl
مسیر نصب برنامه Active Perl در شاخه : E:/Perl هست.




Can't locate NET/HTTP.pm in @INC (@INC contains: E:/Perl/lib E:/Perl/site/lib .)
at google.pl line 5.
BEGIN failed--compilation aborted at google.pl line 5.
که در لاین 5 نوشته شده :



use NET::HTTP;
به نظر شما مشکل از کجاست ؟ چرا در ویندوز اجرا نمیشه ؟