Select Code to Download

#!/usr/bin/perl

...
};

print "factorial of 7 is ".&$sub(7)."\n";

my @factorials = map {&{
    my $this_sub;
...
    }}($_)} (3,5,7,9);

print "factorials: @factorials\n";