use ntheory qw/:all/;
my $n = 183092192580;
print "Factors:  @{[factor($n)]}\n";
print "Divisors: @{[divisors($n)]}\n";