Wow, you guys aren't very good at optimizing. I can do it in Perl in 63 characters, or 79 if you insist on including a #!/usr/bin/perl at the top:
use Math::Big::Factors;
@f=factor_wheel($ARGV[0],1);
print @f;
(Don't look at me that way. Committed programmers are lazy programmers.)
