use HTML::TagFilter;
my $tf = HTML::TagFilter->new(
			      allow=>{
				  p=>{'any'},
				  i=>{'any'},				  
				  b=>{'any'},
				  code=>{'any'},
				  br=>{'any'},
				  u=>{'any'},
				  pre=>{'any'},
				  img=>{width=>['any'],
					height=>['any'],
					border=>['any'],
					src=>['any'],
				    },
				  a=>{href=>['any'],
				      target=>['any'],
				      name=>['any'],
				  },
				  
			      }, 
			      deny=>{}, 
			      log_rejects => 1, 
			      strip_comments => 1, 
			      );

sub filter_html{
    $tf->filter(shift);
}