Perl, how to print the package name?

Is it possible - in Perl - to access the name of the current package (for example, to print it in a customized error report) ?