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

open(INF,"data.db");
@kites = <INF>;
close(INF);

printf("%-25s Stock# Status  Price\n","Kite Name");
foreach $i (@kites) {
    chomp($i);		
    ($stocknum,$name,$status,$price) = split(/\|/,$i);
    printf("%-25s #%04d   %3s    \$%4.2f\n",$name,$stocknum,$status,$price);
}

print "</pre>\n";