print ref $@;           # "Exception::Died"