#!/usr/bin/perl
use strict;
use warnings;

my $obj=TestSubClass->new;

{ package TestClass;
  sub new {
    my $class = shift;
    my $self = {};
    print "I'm brand new!\n";
    bless $self, $class;
  }
}

{ package TestSubClass;
  our @ISA=("TestClass");
}