#!/usr/bin/perl -w use strict ; use CGI ; my $e = new CGI ; my $top_toolbar1 = "/www/cbb/includ/header_pencil.html" ; my $top_toolbar2 = "/www/cbb/includ/header2.html" ; my $footer = "/www/cbb/includ/footer.html" ; open (TOOLBAR1, $top_toolbar1) || die "can't open $top_toolbar1: $!" ; open (TOOLBAR2, $top_toolbar2) || die "can't open $top_toolbar2: $!" ; open (FOOTER, $footer) || die "can't open $footer: $!" ; print "Content-type: text/html","\n\n" ; print < CBB Library and Information Services Feedback Form
EOF1 # while () {print ;} print < while () {print ;} print ("referer, "\">") ; print <
EOF3 # while (
) {print ;} print < EOF4
Your Name:
Your Institution:
Your E-Mail:
 

Please share your comments and suggestions with us: