CGI Application Modules for CPAN

  # include reply_id in hidden field if replying

  if (exists $options{reply_id}) {

    $output .= hidden( name => "reply_id",  default => $options{reply_id});

  } 

  # end form and html page

  $output .= end_form . end_html;

  # return output, as all run modes must!

  return $output;

}

Figure 11 6. Message entry screen in action

26

265

5