my $day = ($base_vars{'day'} > $q->param('arrday')) ? 
  $base_vars{'day'} : $q->param('arrday');

my $days_select = '<select><option></option>';
for (1..31) 
{
  my $s = ($_ == $day) ? ' selected' : '';
  $days_select .= qq{<option$s></option>\n};
}