package main; use strict; use warnings; sub new { my $class = shift; my $self = { Class => $class }; bless $self, $class; } sub myprint { my $self = shift; print "This is a method of class $self->{Class}.\n"; } my $obj = main->new(); $obj->myprint(); __OUTPUT__ This is a method of class main.