#!/usr/bin/perl
# invoke this puppy by popping a 640 x 480 window
# and calling ./p_gen.cgi?hex=12ab87 to set the initial color
#
# p_gen.cgi
# version 1.04, 8-13-02
# Copyright, Michael Robinton, michael@bizsystems.com
use strict;
#use diagnostics;
use lib qw(./blib/lib);
require Graphics::ColorPicker;
#############################################
############## CONFIGURATION ################
#############################################
my $image_path = './'; # must have trailing slash
#############################################
############ END CONFIGURATION ##############
#############################################
&Graphics::ColorPicker::make_page($image_path);