my $result = eval($code); 
warn "eval borked: $@" if $@;