সম্পাদনা
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};
পূর্বরূপ
