#!/usr/local/bin/perl -w
# package-scope.pl -- Gueltigkeitsbereich von Packages

print __PACKAGE__, "\n";
if (1) {
    package privmyfunc;
    print "  ", __PACKAGE__, "\n";
    {
        package nested;
        print "    ", __PACKAGE__, "\n";
    }
    print "  ", __PACKAGE__, "\n";

    package privotherfunc;
    print "  ", __PACKAGE__, "\n";
}
print __PACKAGE__, "\n";