my (%param) = @_; 
        my $param =  \%param;

        print '<input name="head_en" type="text" size="50" value='.$param->{head_en}.'>';