পার্ল ফাংশন

sub message {
  print "হ্যালো বিশ্ব";
}

message();

sub message {
  return "হ্যালো বিশ্ব";
}

print message();

sub message {
  return "হ্যালো বিশ্ব";
}

print message();

my $message = sub {
  print "হ্যালো বিশ্ব";
};

$message->();

sub user {
  my ($name, $land) = @_;

  return "$name - $land";
}

print user("আরিফ", "বাংলাদেশ");

sub user {
  my ($name, $land) = @_;

  print "$name - $land";
}

user("আরিফ", "বাংলাদেশ");

sub reference {
  my ($number) = @_;

  $number = 123456;
}

my $number = 100;

reference($number);

print $number;

my $text = "হ্যালো বিশ্ব";

my $message = sub {
  return $text;
};

print $message->();

sub counter {
  my ($number) = @_;

  if($number <= 0) {
    return;
  }

  print "নাম্বার $number\n";

  counter($number - 1);
}

counter(10);

sub outer {

  sub inner {
    return "হ্যালো বিশ্ব";
  }

  return inner();
}

print outer();

sub message {
  return "হ্যালো বিশ্ব";
}

my $function = \&message;

print $function->();

sub message {
  my ($text) = @_;

  return $text;
}

sub call {
  my ($callback) = @_;

  print $callback->("হ্যালো বিশ্ব");
}

call(\&message);

sub user {
  return ("আরিফ", "বাংলাদেশ");
}

my ($name, $land) = user();

print "$name - $land";