http://perldoc.perl.org/perldata.html#Special-Literals



__PACKAGE__         name of the current package

__FILE__            current filename   (changes for every file,
                    unlike $0 which is the one filename that started the whole script)

__LINE__            current line number