IO::socket 的问题

IO::socket 的问题
请问这个程序哪里有问题？

use IO::socket ;

my $server = shift ;
my $fh = IO::socket::INET->new ($server) ;
my $line = <$fh> ;
print $line ;

运行出错：
D:\BJJ_Doc\Perl>perl testsocket.pl
Can't locate object method "new" via package "IO::socket::INET" (perhaps you for
got to load "IO::socket::INET"?) at testsocket.pl line 4.