package MyClass;
use strict;

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

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

##</code><code>##

#!/usr/bin/perl -w

use strict;
use MyClass;

my ($d1, $d2) = (MyClass->new, MyClass->new);
...

##</code><code>##

perldoc perlbot
perldoc perltoot
perldoc -f bless