সম্পাদনা
sub counter { my ($number) = @_; if($number <= 0) { return; } print "নাম্বার $number\n"; counter($number - 1); } counter(10);
পূর্বরূপ
