eval BLOCK is what you want,

my $foo = eval { $obj->method(@args) };
warn "Oops! ", $@ if $@;
[download]