#!/usr/bin/perl

   use strict;

   my ($num) = @ARGV;

   my $x = int(sqrt($num)) + 1;
   my $y = sqrt($x * $x - $num);

   while ($x - $y >= 2) {

      if ($y == sprintf("%d", $y)) {
         print "Ok $num = ", $x-$y, " * ", $y+$x, "\n";
      }
      else { print "No x = $x, y = $y\n"; }

      $x++;
      $y = sqrt($x * $x - $num);
   }