#! /usr/bin/perl
use strict;
use Math::Pari qw(:int factorint divisors);
for (@ARGV) {
  my $N = $_;
  my $a = factorint($N);
  my $div = divisors($a);
  print "sorted list of divisors of $N is ",$div,"\n";
}