param($_) foreach(@cri); !>
){ @tab=split '-',$_; if($tab[0] eq $type){$descri=$tab[1];} } open (DATA,"grep $year desc.txt|grep \"$t_er\"|")||die "can't open file"; if($descri){print qq($descri de $year: