Select Code to Download

use Data::Dumper;

...
print OUT Dumper(\%tree);
close(OUT);

use Data::Dumper;
my $hashtree = do("/usr/home/psivaram/tree") or die $!;

%tree = %{$tree};