catch { my $e= $@; ... }