path: root/challenge-023/mark-anderson/perl5/ch-2.pl

#!/usr/bin/env perl

use Modern::Perl      '2018';
use Math::Prime::Util 'factor';

my $num = shift || 228;
say join ", ", factor($num);