my $foo; eval {$foo = bar->something(); 1} or die "eval failed ($@)"; $foo;