<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w

use strict;

sub sum {
	my ($num1, $num2) = @_;

	return $num1 + $num2;
}

print &amp;sum(12, 43), "\n";

my ($v1, $v2) = (100, 10);
print &amp;sum($v1, $v2), "\n";

my @a = (1, 2);
print &amp;sum(@a), "\n";
</pre></body></html>