#!/usr/bin/perl
use Data::Dumper;
my $a = eval {
eval {
die;
}
};
print Dumper($a,$@);
__DATA__
output:
$VAR1 = undef;
$VAR2 = '';