use Math::Pari qw[ :int factorint sqrtint divisors PARI ];
$f = factorint 1000000;
print Dumper $f;

$VAR1 = bless( [
                 bless( [
                          bless( do{\(my $o = 33884400)}, 'Math::Pari' ),
                          bless( do{\(my $o = 33884376)}, 'Math::Pari' )
                        ], 'Math::Pari' ),
                 bless( [
                          bless( do{\(my $o = 33884388)}, 'Math::Pari' ),
                          bless( do{\(my $o = 33884364)}, 'Math::Pari' )
                        ], 'Math::Pari' )
               ], 'Math::Pari' );

Attempt to free unreferenced scalar: SV 0x19f41f4 at c:\Perl\bin\p1.pl line 14, <STDIN> line 3.
Attempt to free unreferenced scalar: SV 0x19f42cc at c:\Perl\bin\p1.pl line 14, <STDIN> line 3.