1 2 3 4 5 6 7 8 9 10 11 12
use strict; use warnings; use lib './lib'; use Chowla; my $c = Chowla->new; my $numbers = $c->list(20); for my $n (@$numbers) { print "$n, "; }