do 'some_code.pl';
print ref $@ if $@;

=output

HASH