Select Code to Download

#!/usr/bin/perl -w 
 
...
    |; 
 
print evaluate($evalstatement);

evaluate

...
    

Global symbol "$x" requires explicit package name at (eval 1) line 2.