|-aterm(2559,ddicks)---screen(2560)---screen(2561)---bash(2563)---su(14303,root)---bash(14306)

##</code><code>##

foreach (@su_procs) {
	print "\n$_\n";
	$user eq split /.*\(/;
	print "$user\n";
}