package Test;
use strict;

use Module::Test;

our @ISA = qw ( Module::Test );


sub new {
        my $class = shift;

        my $t = "Test";



        my $self = Module::$t->new;

        bless ($self, $class);
        return $self;
}

Bad name after Module:: at /home/bert/Test.pm line 18.

1;