Select Code to Download

if(exists($foo{bar}) and exists($foo{bar}{baz})) {
  print "\$foo{bar}{baz} exists\n";
}

my @levels = qw/bar baz/; 
foreach(@levels) {
...
if (eval $code) {
 #do whatever
}