#!/usr/bin/perl -w
use strict;
use CGI ":standard";

my %wines = (11021 => ["Mt. Eden", "45.99"],
             11022 => ["Dom Perignon", "135.99"],
             11023 => ["Veuve Cliquot", "49.99"]);

print header, start_html({-title=>'Wines'}),
      table({-border=>1},
            [Tr([th(["SKUID",
                     "Name",
                     "Price"
                   ]),
                 map td([$_,
                         $wines{$_}->[0],
                         $wines{$_}->[1]]),
                     sort keys %wines
               ])
           ]),
      end_html;