Perl implement Tree data structure (1)

用perl实现了Tree的数据结构，使用Class::Struct来实现，以下为代码：

use Data::Dumper;
use Class::Struct;

struct Node =>{
    left  => 'Node',
    value => '$',
    right => 'Node',
};

$root = Node->new;
add($root,$_) for (5,7,1,4,9,6,0,9,100,20,30,21,60);
#print Dumper $root;
print LMR($root),"/n";
print RML($root),"/n";
print MLR($root),"/n";

sub add{
    my ($root,$value) = @_;
    if (! defined $root->value){
        $root->value($value);
        return;
    }
    my $tmp = $root;
    while($tmp){
        if ($value < $tmp->value){
            if (defined $tmp->left){
                $tmp = $tmp->left
            }
            else{