sub dbconnect {
$mysocket = int rand 100; # (don't tell to use a bigger number please)
socket($mysocket, PF_INET, SOCK_STREAM, getprotobyname 'tcp');
# ...
}