#!/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";
}