my $procs = grep /perl/, qx(ps aux);