use Class::CGI handlers => { invoice_date => ['My::Date::Handler', qw(invoice_month invoice_day invoice_year)], sales_date => ['My::Date::Handler', qw(sales_month sales_day sales_year)], }; my $cgi = Class::CGI->new; my $date = $cgi->param('invoice_date'); my $date = $cgi->param('sales_date'); my $day = $date->day;