#!/usr/bin/perl opendir(PROC,"/proc"); @PIDS=readdir(PROC); @PIDS=grep(!/\./, @PIDS); @PIDS=grep(/\d+/, @PIDS); closedir(PROC); foreach my $pid (@PIDS) { print "$pid\n"; }