#! C:/perl5.14/bin/perl.exe

use Socket; 
 
$proto = getprotobyname('tcp');
 
my($sock);
socket($sock, AF_INET, SOCK_STREAM, $proto) or die $!;
print "Success\n";