eval "...";
warn $@ if $@;

##</code><code>##

eval "...; 1;" or warn $@;