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))));

##</code><code>##

Can't store CODE items at ..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_freeze.al) line 339, at script.pl line 12