The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl

use 5.010;
use Perinci::Use "pl:/Perinci/Examples/" => "sum";

say sum(array => [1, 2, 3, 4])->[2];