print_html(
    onChange => qq{
        document.approveform.command.value='approve';
        document.approveform.submit();
    },

    onClick => qq{
        if (this.disabled) { alert('some text!'); }
    }
);

sub print_html {
    my %param = @_;

    print "onChange: $param{'onChange'}\n"
        if ( exists $param{'onChange'} );

    print "onClick: $param{'onClick'}\n"
        if ( exists $param{'onClick'} );
}