#!/usr/bin/perl -w 
 
use strict; 
 
sub evaluate{ 
    my $perl=shift || return; 
    print "evaluate\n$perl\n\n"; 
    my $rtn=eval($perl); 
    if($@){return $@;} 
    return $rtn; 
    } 
 
my $x=42; 
my $evalstatement=q| 
        $x; 
    |; 
 
print evaluate($evalstatement); 

##</code><code>##

evaluate

        $x;
    

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