root~/perl»./test1.pl 
okay
Not a GLOB reference at /usr/lib64/perl5/5.14.2/x86_64-linux-thread-multi/IO/Socket.pm line 246.
Bye!