#!/usr/bin/perl
print "Content-type:text/html\n\n";

open(INF,"data.db") or dienice("Can't open data.db: $! \n");
@kites = <INF>;
close(INF);

print "<h3>Kites, by price:</h3>\n\n";
foreach $i (sort byprice @kites) {
   chomp($i);
   ($stocknum,$name,$status,$price) = split(/\|/,$i);
   print "$name (#$stocknum) - \$$price<br>\n";
}

sub byprice {
    @a = split(/\|/,$a);
    @b = split(/\|/,$b);
    $a[3] <=> $b[3];
}

sub dienice {
	my($msg) = @_;
	print "<h2>Error</h2>\n";
	print $msg;
	exit;
}