print DumpTree($pid_tree, 'Win32 Process Tree', FILTER => sub
{
	my $s = shift;

	if('Tree::Simple' eq ref $s)
	{
		return( 'SCALAR', undef, $_{'node'} );
	}
	
	return(Data::TreeDumper::DefaultNodesToDisplay($s)) ;
});