if (my $e = $@) {
   ... use $e here ...
}