use Math::Prime::Util qw/factor/;
use List::Util qw/max/;
print max(factor(20)), "\n";
print max(factor(13195)), "\n";
print max(factor("600851475143")), "\n";
__END__
5
29
6857