use strict; use warnings; use Proc::ProcessTable; $, = ' '; # set output field separator $\ = "\n"; # set output record separator my $t = Proc::ProcessTable->new(); my $uid = getpwnam('kdfadm'); foreach my $p (@{ $t->table }) { print @{ $p }{qw( uid pid cmndline )} if ($p->uid == $uid); }