use Class::CGI
    handlers => {
      customer => 'Class::CGI::Customer',
      date     => 'My::Date::Handler',
    };

  my $cgi  = Class::CGI->new;

  eval {
    my $cust = $cgi->param('customer');
    my $date = $cgi->param('date');
  };

  handle_possible_error($@);

  my $name = $cust->name; # look ma, objects!
  my $year = $date->year;