package My::Date::Handler;

  use My::Date;

  sub new {
      my ($class, $cgi, $param) = (shift,shift,shift);  #standard
      my ($month, $day, $year)  = (shift,shift,shift);  #extra
      return My::Date->new(
        month => $month,
        day   => $day,
        year  => $year,
      );
  }
  1;