package sample;
sub new { bless {}, shift }
package main;
my $a = sample->new;
use B;
print B::class($a);