#!/usr/local/bin/perl -w
use strict;
use Shell;
.
.
.
    open(PID,ps("-u gvc"))   # doesn't work.
        or die("Cannot open pipe for command: ps\n");