Select Code to Download

#!/usr/bin/perl

...
    elsif ( $tree->{VALUE} < $value ) { insert( $tree->{RIGHT}, $value
+ ) };
}

$_[0] = $tree;