#!/usr/bin/perl
use strict; # Always.
use CGI ':standard';

my %winelist = (
    "11021"    => ["mt. eden", "45.99"],
    "11022"    => ["dom perignon", "135.99"],
    "11023"    => ["veuve cliquot", "79.99"],
    "92523002" => ["Arcadian Pinot Noir Sl Holl", "24.99"],
    "02196005" => ["Au Bon Climat Pinot Noir La Bauge", "24.99"],
    "92196019" => ["Au Bon Climat Pinot Noir Laetitia", "39.99"],
    "92176184" => ["Bannister Pinot Noir Seghesio Vineyard", "26.99"],
    "92305069" => ["Broadley Pinot Noir Claudias Choice", "39.99"],
    "92305070" => ["Broadley Pinot Noir Marcille Loraine", "29.99"],
    "92305054" => ["Broadley Pinot Noir Reserve", "23.99"],
    "14316002" => ["Castalia Pinot Noir Rochioli Vyd", "29.99"],
    "92620206" => ["Coldstream Hills Pinot Noir", "17.99"],
    "92503001" => ["Costa De Oro Pinot Noir", "19.99"],
);

print header(), start_html();
print "\n\n<!-- This page generated by a script written by Adam at PerlMonks.org -->\n\n";
print h1( "My Wine Collection" ), "\n\n";
print table( {-width, '100%'}, TR(
        td( {-width, '20%'}, "SKUID" ),
        td( {-width, '60%'}, "WINE" ),
        td( {-width, '20%'}, "PRICE" )
        )), "\n";

my $wine;
foreach $wine (keys %winelist) 
{
    print table( {-width, '100%'}, TR( 
             td( {-width, '20%' }, "$wine" ),"\n",
             td( {-width, '60%' }, "$winelist{$wine}[0]" ),
             td( {-width, '20%' }, "$winelist{$wine}[1]" )
             )), "\n";
}
print end_html();