sub form {
    my $self = shift;
    my %params = @_;
    
    my $skip = array_to_hash($params{'skip_fields'}); # Array/ArrayRef
    
    my $q = $self->query();
    my %vars = $q->Vars();
    
    unless($params{dont_encode_fields}){
	    use HTML::Entities;
	
	    foreach(keys %vars){
	    	next if $skip->{$_}; # Don't encode if it's in skip list 
	    	$vars{$_} = HTML::Entities::encode_entities($vars{$_}, '<>&"');
	    }	
    }
    
    return \%vars;
}