my $_name     = param('name')    || '';
  my ( $name )  = $_name  =~ /^([[:alpha:][:punct:][:space:]]+)$/;

  my $_color    = param('color') || '';
  my ( $color ) = $_color =~ /^([[:alpha:]]+)$/;

##</code><code>##

  package MyApp;
  use strict;
  $MyApp::data_dir = "/usr/local/data";
  $MyApp::db_user = "app";
  $MyApp::db_password = "secret";
  ...
  1;

##</code><code>##

  #!perl
  handler(CGI->new);
  sub handler {
     my($q) = @_;
     ...
  }