পার্ল callback ফাংশন

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

  return $text;
}

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

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

call(\&message);