RosettaCodeData/Task/Attractive-numbers/Perl/attractive-numbers.pl

use ntheory <is_prime factor>;

is_prime +factor $_ and print "$_ " for 1..120;