Select Code to Download

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

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