sub make_binary { eval "sub { $_[0] }" }
my %op ;
$op{add} = make_binary '$_[0] + $_[1]' ; 
$op{sub} = make_binary '$_[0] - $_[1]' ; 	
$op{mul} = make_binary '$_[0] * $_[1]' ; 
$op{div} = make_binary '$_[0] / $_[1]' ; 
$op{max} = make_binary '$_[0] > $_[1] ? $_[0] : $_[1]' ; 

for (sort keys %op) {
	print "2 $_ 3 = " . $op{$_}->(2,3) . "\n";
}