my $foo = eval { bar->something() }; die if $@; # See "perldoc -f die" for what this does