<BODY> ub set_tenki{ <BR> my $ai,$err; <BR> $err = ''; <BR> $item = 'tenki'; <BR> $ICON{'tenki_icon'} = $q->param('use'); <BR> <BR> for($ai=1;$ai </BODY>