&build_combo('d'); # function call


sub build_combo{
    my ($type)=@_;
    my ($day,$month);
    my ($i);
    
    if ($type=='d'){
       $month = $cgi->Select({-name=>"days"},
          [
           for ($i==0; $i<=31; $i++){
              $cgi->option({-value=>"$i"},"$i"),
           }
          ]
       );
   }#endif
   return $month;
}#endsub