sub dbconnect {
    socket(my $mysocket, PF_INET, SOCK_STREAM, getprotobyname('tcp'))
        or die("socket: $!");

    fileno($mysocket) >= 100
        or die("No available file descriptors below 100\n");

    # ...
}