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

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

eval $code;
print $@ if ($@);
print $result;