use strict;
use warnings;

use Tree         qw( );
use Storable     qw( nfreeze thaw );
use Data::Dumper qw( Dumper );

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

print(Dumper(thaw(nfreeze($tree))));