#!/usr/local/bin/perl
$psfile = `ps -ef`;
@psfile = split /^/m, $psfile;
foreach $psline (@psfile) {
	chomp $psline;
	@psline = split m/\s|\S{8,6,6}/i, $psline;
	print "$psline[0]\t$psline[1]\n";
}