Select Code to Download

my $data = serialize $tree, sub {
    my $obj = shift;
...
    }
    return (); # serialize $obj as is
};