package MyFilter;
use HTML::Filter;
use vars qw( @ISA );
@ISA = qw( HTML::Filter );
sub start {
  my ($self, $tag, $attrs, $attrseq, $origtext) = @_;
  my $rewrite;
  if (exists $attrs->{src}) {
    $attrs->{src} = "http://foo.bar.com/$attrs->{src}";
    $rewrite = 1;
  }
  if (exists $attrs->{href}) {
    $attrs->{href} = "http://foo.bar.com/$attrs->{href}";
    $rewrite = 1;
  }
  if ($rewrite) { 
    print "<$tag";
    foreach my $attr (@$attrseq) {
      print qq[ $attr="$attrs->{$attr}"];
    }
    print ">"; 
  }
  else { print $origtext }
}
package main;
my $filter = MyFilter->new();
$filter->parse($html);
$filter->eof();