$cmd = "sub{ prin 'Howdy'; }";
$sub = eval $cmd;
print "Error: ", $@, "\n" if $@;
&$sub unless $@;