পার্ল অবজেক্ট ওরিয়েন্টেড প্রোগ্রামিং

package User;

sub new {
  my ($class, $name, $land) = @_;

  return bless {
    name => $name,
    land => $land
  }, $class;
}

package main;

my $user = User->new("আরিফ", "বাংলাদেশ");

print $user->{name} . "\n";
print $user->{land};

package User;

sub new {
  my ($class, $name, $land) = @_;

  return bless {
    name => $name,
    land => $land
  }, $class;
}

package main;

my $user = User->new("আরিফ", "বাংলাদেশ");

print $user->{name} . "\n";
print $user->{land};

package User;

sub new {
  my ($class, $message) = @_;

  return bless {
    message => $message
  }, $class;
}

sub clone {
  my ($self) = @_;

  return User->new($self->{message});
}

package main;

my $arif = User->new("হ্যালো বিশ্ব");
my $amir = $arif->clone();

print $arif->{message} . "\n";
print $amir->{message};