Select Code to Download

  package My::Date::Handler;

  use My::Date;
...
  }

  1;

  use Class::CGI
    handlers => {
      date => 'My::Date::Handler',
...
  my $cgi  = Class::CGI->new;
  my $date = $cgi->param('date');
  my $day  = $date->day;