Select Code to Download

use Data::Dumper;

my $foo = {};
...

1 if (defined($foo->{bar}->{baz}));
print Dumper($foo);