#!perl

use strict;
use warnings;

package MyPkg;

sub new {
    my ($self, $name) = @_;
    my %hash = (
        name => $name
    );
    return bless \%hash;
}

sub print {
    my $self = shift;
    print "name: " . $self->{name};
}

package main;

my $obj = MyPkg->new('foo');
$obj->print();