$ more eval
#!/usr/bin/perl
$code = 'if($a>$b){ $result =1} ';

$a =1;
$b = 0;
$result =0;

eval $code;
print "eval error\n" if($@);
print $result;
$ eval 
$ perl -v

This is perl, v5.8.2 built for sun4-solaris

Copyright 1987-2003, Larry Wall