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