#!/usr/bin/perl | |
require "subparseform.lib"; | |
&Parse_Form; | |
$first = $formdata{'first_name'}; | |
$married = $formdata{'fiance_last'}; | |
$fullname = $first . " " . $married; | |
print "Content-type: text/html\n\n"; | |
print "Congratulations! Your married name would be $fullname."; |