【Perl】package名を取得したい場合

雄大です。
最近は、後輩がPerlを使って、サービスを作っているので、自分自身も後輩に教えるためにも、
自分自身がPerlの再勉強しています。最近はよくサンプルコードを書いています。
package名を取得したい場合のサンプル・コード

use strict;
use warnings;

print __PACKAGE__ ."\n";
{
package pk1;
    print __PACKAGE__."\n";
}

{
package pk2;
    print __PACKAGE__ ."\n";
}