Select Code to Download

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