#!/usr/local/bin/perl

&parse_form_data (*simple_form);

print "Content-type: text/plain", "\n\n";
$address = $simple_form{'address'};
if ($address) {
    print "Your Address is ", $simple_form{'address'}, ".", "\n";
    print "Please visit this Web server again!", "\n";
} else {
    print "You did not enter a address.", "\n";
    print "But, you are welcome to visit this Web server again!", "\n";
}
exit(0);