#! /usr/bin/perl
use Math::Pari qw(:int factorint);
print factorint($_), "\n" for @ARGV;

##</code><code>##

bash-2.01$ ./factor 491320487930121938479123 4839013210437894323
[48049,1;10225405064207828227,1]
[11,2;36809477,1;1086455119,1]

##</code><code>##

bash-2.01$ ./factor 4913204879301219384791234839013210437894323
[3,1;19,1;82471,1;17992995173,1;4100172797059,1;14167170962387,1]