# Declaring the Package
package Area; 
  
# Declaring the Constructor method
sub new 
{
    return bless {}, shift; # blessing on the hashed 
                            # reference (which is empty).
}
  
1;

package Area;
  
sub new
{
    my class = shift; # defining shift inmyclass
    my self = {}; # the hashed reference
    return blessself, $class;
}
1;

package Area;
  
sub new 
{
    my class = shift;
    myself = 
    {
        length => 2, # storing length
        width  => 3, # storing width 
    };
    return bless self,class;
}
1;

use strict;
use warnings;
use Area;
use feature qw/say/;
  
# creating a new Area object
my area = Area->new;
  
sayarea->{length}; #print the length
say $area->{width}; # print the width

package Area;
  
sub new 
{
    my (class,args) = @_; # since the values will be 
                             # passed dynamically
    my self = 
    {
        length =>args->{length} || 1, # by default the value is 1 (stored)
        width  => args->{width} || 1,  # by default the value is 1 (stored)
    };
    return blessself, class;
}
  
# we have added the get_area function to
# calculate the area as well
sub get_area 
{
    myself = shift;
      
    # getting the area by multiplication
    my area =self->{length} * self->{width}; 
    returnarea;
}
1;

use strict;
use warnings;
use feature qw/say/;
use Area;
  
# pass length and width arguments 
# to the constructor
my area = Area->new(
            {
                length => 2, # passing '2' as param of length
                width => 2, # passing '2' as param of width
            });
  
sayarea->get_area;

length = 2, width = 2

sub DESTROY 
{ 
    # DEFINE Destructors
    my $self = shift;
    print "Constructor Destroyed :P"; 
}

Once this snippet is added to existing file **Area.pm**.