#!/usr/bin/env perl my $m = <>; chomp $m; for (my $i = 2; $i * $i <= $m; $i++) { if ($m % $i == 0) { my $x = $m / $i; print "$i $x\n"; exit; } } print "$m 1\n";