$e = "my \$i=0;
      sub foo{
        print \"\$i foo\\n\";
        if (\$i < 10){
          \$i++;
          print \"calling foo\\n\";
          foo
        }
      }
      foo;";
eval "$e";
print $@