#!/usr/bin/perl
use warnings;
use strict;

{   package Local;

    sub My::frob {
        print __PACKAGE__
    }
}

My::frob();  # Local