Select Code to Download

if( exists $foo->{bar}{anything}{you}{want} ){
}

if( my $want = Dive( $foo, qw/ bar anything you want / ) ){
...
}