Perl thinks you're trying to use a prototype. Change the beginning of your subroutine declaration to the following:

sub queryProcesses {
    my $server = shift;
[download]

However, I also see the following in your queryProcesses() subroutine:

if ($processTableRecord->fname eq $server) {
    %{$server} = (
        pid    => '$processTableRecord->pid',
        server => '$processTableRecord->fname'
    );
    print $processTableRecord->uid, "\n";
}
[download]

That suggests that you may need to rethink your code. You probably wanted $server to be declared global, or better yet, have the subroutine return a reference to the hash.

Last issue:

pid    => '$processTableRecord->pid',
[download]

Single quotes will cause the whatever is in the quotes to not be interpolated. From what I see, I suspect that you probably just want to drop the quotes. If you do, don't just change them to double quotes as double quotes do not allow for interpolations of subs or object methods. I'd probably write that bit as follows (note that I changed the parentheses to braces to create the hashref):

$server = { pid    => $processTableRecord->pid,
            server => $processTableRecord->fname };
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.