#!/usr/bin/perl #-*-Perl-*- # use CGI; use CGI::Carp qw (fatalsToBrowser confess); use Data::Dumper; use FileHandle; use strict; #------------------------------------------------------ # Globals (edit as needed) # my $mailprog = "/usr/lib/sendmail"; my $sendto = "webmaster\@dmna.org"; #------------------------------------------------------ my %com_tab; # committee table my $the_pres; # DMNA president e-mail address my $JSCRIPT=<url(); print $q->header; print $q->start_html(-title=> 'DMNA Feedback Page', -script=>$JSCRIPT, -author=> $sendto ); print ""; emit_file("header.html", '