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

##</code><code>##

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