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

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};