#!/usr/bin/perl
use 5.14.0;
use warnings;
use autodie;
use Data::Dumper;

my $t = myTree::create_tree(5);
print Dumper($t);

package myTree;

sub create_tree {
    my $depth = shift;
    my $object = {
        left =>$depth ? create_tree($depth-1) : undef,
        right=>$depth ? create_tree($depth-1) : undef
    };
    return bless $object;
}