Select Code to Download

$connections{$user_name}{client} = $client;

...
foreach $key (keys %connections) {
 print $connections{$key}{client} "info to be displayed";
}

#!/usr/bin/perl
# preforker - server who forks first
...
        exit;
    }
}