#!/usr/bin/perl open(FILE,"beerlist.txt") ; while ($_=) { ( $beertype[++$i], $beer[$i] ) = m/(\S+)\s+(.*)/ ; } close(FILE) ; open(FILE,"typelist.txt") ; while ($_=) { ( $type[++$types], $typename[$types] ) = m/(\S+)\s+(.*)/ ; } close(FILE) ; print "Content-type: text/html\n\n" ; print "\n"; print "\n"; print "Debug info...\n" ; print join(" ", %beertype) ; print "
\n"; for ($cnt=1; $cnt<=10; $cnt++) { print "

$cnt. $beer[$cnt] \n" ; print "\n"; } print "

\n"; print "\n"; print "\n";