Perl Script to Process the Data (2 of 2)

my $output_line = "STUDENT_USERNAME=$student_username; " .

"PROPOSAL_URL=$proposal_url; " .

"PROJECT_NAME=$projectname; " .

"PARTNER=$partner; " .

"UNCERTAIN=$uncertain; " .

"DATE=$now; ";

if (! (open(OUT, ">>MP-topic-proposal-data.txt"))) {

print("Error: could not open topic file for output.");

print("Please notify instructor and/or try again later.");

print end_html;

exit 0;

}

print OUT $output_line, "\n";

close OUT;

print h1("Your miniproject topic proposal has been received. Thanks!");

print end_html;