Here is some example code which uses HTML::Stream.