sub PrintError {
print "Content-type: text/html\n\n";
@description = ({
fax => "Please enter your company's fax number",
});
print <<"HTML";
Error / Incorrect Data
The following form fields are required:
Please use your Browser's back button to fix the following problems
HTML
if ($error){
print "Error: | | $error |
";
}
foreach $empty (@emptyField){
print "$empty: | | $description[0]{$empty} |
";
}
print <<"HTML";
HTML
}
1;