#!/usr/bin/perl -wT use strict; use CGI qw(:standard); use lib "/home/bgregory/public_html/cgi-bin"; use DATA99 qw(WasonE); my $q = new CGI; my %WasonE; my $key; my $WasonE; my $name; my $value; my @WasonE; WasonE(); print $q->header( "text/html" ); print "\n\n"; print < END_OF_HEADER print < \n" if ( defined( $WasonE{'HSname'} ) ); print <

Quick Info:

END_OF_th print "		$WasonE{HSName}
END_OF_page exit;