package sample;
sub new
{
...
}

package main;
$a = new sample();
print STDERR $a->NAMEOFPACKAGE;