my $foo = eval { bar->something() };

die $@ if $@;

$foo;