sub print_html {
    my %param = @_;

    exists $param{$_} and print "$_: $param{$_}\n"
        for qw(onChange onClick);
}