use lib "/home/$USER/lib/perl/5.10.0"; use strict; use Proc::ProcessTable; my $table = Proc::ProcessTable->new; foreach my $proc( @{$table->table} ){ my ($pid, $cmnd) = ($proc->pid, $proc->cmndline); print "PID: $pid\nCMND: $cmnd\n"; print '-' x 60; print "\n"; }