use Socket;
socket(my $socket, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

##</code><code>##

Can't use an undefined value as a symbol reference at ...