package X;
sub new {
  my $self = shift;
  printf "new() v1\n";
  return bless {}, $self;
}
sub blah {  printf "blah v1\n"; }
1;