$pi = 3.1415926535897932;
sub acos { atan2( sqrt(1 - $_[0] * $_[0]), $_[0] ) }

$n = 1; #Število poskusov
$d = 1; #Razdalja med deskama
print "Vnesi dolžino igle: ";
$l = <STDIN>; chomp($l);
if ($l > $d) { die("Predolga igla!"); }
print "Število poskusov: ";
$max = <STDIN>; chomp($max);

while ($n <= $max) {
 $t = rand(0..$d); #Težišče

 if ($t > $l/2 && $t < $d-$l/2) {
  #print "\$t je $t\n\$l je $l\nZagotovo ne zadene!\n\n"; }
 }

 else {
  if ($t > $d/2) {$t = $d-$t; } #Pravokotna razdalja od težišča do bližnje deske


  $fi = acos ($t/($l/2));


  if (rand(0..1) <= $fi/($pi/2)) {
   $m++;}}



 $n++;}
$n--;
print "\nPoskus št.: $n\nKoličnik med zadetki in številom poskusov: ", $m/$n, "\n";
 print "PI je ", 2*$l*$n/($m*$d), ".\n" if $m > 0;