#!/usr/bin/perl -w

print "Content-type: text/html\n\n";

$x = 3;
$y = 0;

do {
$y = $x;

$x = $x - (sin($x)/cos($x));


} until ($x == $y);
print "$x\n";