use Tree::Parser;
my $tp = Tree::Parser->new($input);
$tp->useSpaceIndentedFilters(2);
my $tree = $tp->parse();