tina@lugosi:~$ cat document.pm 
package document;
use strict;
use warnings;

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

1;

tina@lugosi:~$ perl -wle'
use document;
my $test = document->new();
print $test'
document=HASH(0x504290)