#!/usr/bin/perl
$time1 = time;

$n = 1;
while ($n) {

$x = rand(0..1);
$y = rand(0..1);

$r = sqrt($x**2 + $y**2);

if ($r <= 1) {
$m++; }

$pi = $m/$n*4;

if ($n%10000 == 0) {
print "Stevilo poskusov: $n\nStevilo zadetkov: $m\n";
print "Nas PI je $pi\n\n";
$time2 = time;
#print "Porabil sem ", $time2-$time1, " sekund.\n";
sleep(1); }


$n++;
}