package A;

sub new {
   print $INC{"A.pm"};
}

1;