or download this
[ 1:35:13.75] P:\test>perl -MMath::BigInt -wle"$n=Math::BigInt->new( 1
+9937 ); print $n->bfac;"
2174930234150431374566653562545349453159548764005915598228287343243610
...
0000000000000000000000000000000000000000000000000000000000000000000
[ 1:37:02.13] P:\test>