Select Code to Download

"my" variable $var masks earlier declaration in same scope at E:\aa\pa
+cktest.pl line 16.
"my" variable $var masks earlier declaration in same scope at E:\aa\pa
+cktest.pl line 29.
Use of uninitialized value in concatenation (.) or string at E:\aa\pac
+ktest.pl line 32.
Use of uninitialized value in concatenation (.) or string at E:\aa\pac
+ktest.pl line 43.
Use of uninitialized value in concatenation (.) or string at E:\aa\pac
+ktest.pl line 22.

package aaa;
#{
...
    print "In 'ccc' var is set to '$var'\n";
}
#}

In 'aaa' var is set to 'first var'
In 'bbb' var is set to ''
In 'ccc' var is set to ''
In 'main' var is set to ''