#!/usr/bin/perl
#
#  ps format
$PSfmt = "\"pid,ppid,pgid,user\"";

#  ps command
$_ = `ps -ef -o $PSfmt`;

#
#  eliminate leading spaces, and condense spaces
s/^\s+//gm;
s/ +/ /gm;
print "$_ \n";
[download]