my $obj=new Class1(); $obj->setName("John Doe"); $obj->hello(); #output: Hello, John Doe package Class1; sub new { my $class=shift; my $self={}; bless $self, $class; return $self; } sub setName { my $self=shift; my $name=shift; $self->{"Name"}=$name; } sub getName { my $self=shift; return $self->{"Name"}; } sub hello { my $self=shift; print "Hello, " , $self->{"Name"}; }