my $parent = (grep {/^\s*\d+/} (`ps -p $parent_id`))[0];