Help for this page

Select Code to Download

Select or download this

my $e = 'my $i=0;
      sub foo{
...
      foo;';
eval "$e";
print $@,"\n";