Select Code to Download

sub dbconnect {
    socket(my $mysocket, PF_INET, SOCK_STREAM, getprotobyname('tcp'))
...

    # ...
}

use strict;
use warnings;
...

socket(my $mysocket, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or d
+ie;
print(fileno($mysocket), "\n");

0: 3
1: 4
...
9: 14
--
10