Help for this page

Select Code to Download

Select or download this

{
    my $a = 1;
...
    sub f2 {     print "f2: a=", eval('$a'), "\n";  }
}
f1(); f2();

Select or download this
```
f1: a=1
f2: a=
```