package MyClass;
use strict;

use vars qw/@ISA/;
use Exporter;
@ISA = qw/Exporter/;

sub new {
   my $class = shift;
   my $self = {};
   bless $self, $class;
}