不能创建 SOCK ?

$ cat www.pl
#!/usr/bin/perl

use strict;
use Socket;
use constant DEFAULT_ADDR       => '127.0.0.1';

my $packed_addr = gethostbyname(shift || DEFAULT_ADDR) or die "$!";
my $protocol    = getprotobyname('tcp');
my $port                = getservbyname('www','tcp') or die "$!";
my $destination = sockaddr_in ($port,$packed_addr);

sock(SOCK,PF_INET,SOCK_STREAM,$protocol) or die "can't creat Socket: $!";
connect(SOCK, $destination) or die "$!";

print <SOCK>;
close SOCK;

$ perl www.pl
Bareword "SOCK" not allowed while "strict subs" in use at www.pl line 21.
Execution of www.pl aborted due to compilation errors.

刚开始学perl的socket，出现错误，但是不知何解。请各位指教。
这代码来之perl 网络编程。只改了一点点，应该不会有什么错阿。

SOCK这个变量没识别，应该是缺少包了

但这只是个书本的例子阿。都没增加什么东西。
如果说是缺少包的话好像不是这个提示吧？应该会提示缺少什么东西阿。