use strict;
use warnings;
use Proc::ProcessTable;

my $p = new Proc::ProcessTable;
my $t = $p->table;
my %tree;
$tree{$_->pid} = $_->ppid for @$t;

for my $process ( @$t ) {
  print $process->cmndline;
  my $pid = $process->pid;
  while( $pid > 1 ) {
    print "->$pid";
    $pid = $tree{$pid}
  }
  print "->$pid\n";
}