#!/usr/bin/perl -w

use strict;

package MyObj;

use vars qw(@ISA);
use Base;

@ISA = qw(Base);

sub new {
  return bless {}, shift;
}

package main;

my $thing = MyObj->new;

$thing->something;