#!/usr/bin/perl -wl

    print __PACKAGE__;

    package My::Package;

    print __PACKAGE__;

    __END__

    Prints:
    main
    My::Package