#!/usr/bin/perl -wT # Created - by Joseph Ruffino 08/13/04 use CGI::Carp qw(fatalsToBrowser); # Errors are displayed in the web browseer use CGI qw(:standard :html3); # For HTML output ############################################################################### # Load in variables from form # my $datefile = $ENV{'datefile'}; my $datajoin = $ENV{'datajoin'}; #open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for writing: $!"; #print BOBIN $datajoin; my $query = new CGI; print $query->header( "text/html" ); print <Question Confirmation

Data File: $datefile

Data Line: $datajoin

Your

Question and Answer

has been submitted to Youth

Click to back to Question Submiission Form

END_WEB close(BOBIN);