Select Code to Download

sub canonize_file_name {
   ???
...
   $forest{$id} = Tree->new($file_name);
}
return $forest{$id};