#!/usr/bin/perl print "Content-type:text/html\n\n"; open(INF,"data.db") or dienice("Can't open data.db: $! \n"); @grok = ; close(INF); print <Kite Catalog

Kite Catalog

To order, enter the quantity in the input box next to the item.

EndHdr foreach $i (@grok) { chomp($i); ($stocknum,$name,$status,$price) = split(/\|/,$i); if ($status ne "OUT") { print " $name - \$$price

\n"; } } print <

EndFoot sub dienice { my($msg) = @_; print "

Error

\n"; print $msg; exit; }