use strict;
use warnings;

use Tree         qw( );
use YAML         qw( Dump Load );
use Data::Dumper qw( Dumper );

my $tree = Tree->new( 'root' );
my $child = Tree->new( 'child' );
$tree->add_child( $child );

print(Dumper(Load(Dump($tree))));