Select Code to Download

my $dump = dumpf($data, sub {
    use List::Util qw/max/;
    my ($ctx, $obj) = @_;
...
    }
    return \%r;
});

#!/usr/bin/env perl

...
    }
    return \%r;
});

{
  unknown => "unknown key",
...
             },
  three   => "third",
}