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

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