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