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

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