#!/usr/bin/perl -w

open I, "| ps -ef" or die;
close I;