Select Code to Download

sub new 
  {
...
  $class->import() if $IMPORT == 0;        # make require work
  
  my $self = bless {}, $class;

my $y = {ref $x}->new();