Select Code to Download

    sub GetProcessCommand
    {
            my ($pid) = @_;

            return (open (PID, "/proc/$pid/cmdline") && <PID>);
    }

    # Check for buddy named 'xyz-proc'
    if (GetProcessCommand($pid) =~ /xyz\-proc/) { ... }