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

while(<DATA>) {
	chomp;
	@sorted=();
	@sorted = split(/\|/);
	$sorted{$sorted[0]} = [@sorted];
}


print "$_->[0]|$_->[1]|$_->[2]<BR>\n" for sort {$b->[0] cmp $a->[0]} values %sorted;


__DATA__
24|index.htm|http://localhost/~owner/index.htm
18|alertBoxes.htm|http://localhost/~owner/alertboxes.htm
4|andrewsGame.htm|http://localhost/~owner/andrewsgame.htm
3|bounceGame.htm|http://localhost/~owner/bouncegame.htm
21|browserRace.htm|http://localhost/~owner/browserrace.htm
6|breakFrames.htm|http://localhost/~owner/breakframes.htm
44|colorTables.htm|http://localhost/~owner/colortables.htm
61|humanReadable.htm|http://localhost/~owner/humanreadable.htm
27|mouseXY.htm|http://localhost/~owner/mousexy.htm
9|calculator.htm|http://localhost/~owner/calculator.htm
15|fakeFormat.htm|http://localhost/~owner/fakeformat.htm
2|makeCircle.htm|http://localhost/~owner/makecircle.htm
22|imageSwap.htm|http://localhost/~owner/imageswap.htm
5|easyDate.htm|http://localhost/~owner/easydate.htm
66|encoder.htm|http://localhost/~owner/encoder.htm
57|bgChanger.htm|http://localhost/~owner/bgchanger.htm
10|centipede.htm|http://localhost/~owner/centipede.htm
11|cookies.htm|http://localhost/~owner/cookies.htm