Babbage problem: Difference between revisions

=={{header|Perl}}==

<lang Perl>#!/usr/bin/perl

use strict ;

use warnings ;

my $current = 0 ;

while ( ($current ** 2 ) % 1000000 != 269696 ) {

$current++ ;

}

print "The square of $current is " . ($current * $current) . " !\n" ;</lang>

{{out}}

<pre>The square of 25264 is 638269696 !</pre>