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