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