#!/usr/bin/perl

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

open(FP,"<"."record.dat");
@record=<FP>;
close(FP);

$score=$ENV{"QUERY_STRING"};
$rank=1;
for ($i=0;$i<=$#record;$i++)
{
	if ($score<$record[$i])
	{
		$rank++;
	}
}
print $rank."\n";

push(@record,$score."\n");

open(FP,">"."record.dat");
print FP @record;
close(FP);

exit;