Select Code to Download

use strict;
use warnings;
...
print reduce { $a * $b }     1..6;  # 720
print reduce \&prototyped,   1..6;  # 720
print reduce \&unprototyped, 1..6;  # 720