#!/usr/bin/perl -w

use HTML::Stream; 

# Setup:
$HTML = new HTML::Stream \*STDOUT;
$href = "/usr/local/foo";
$verse = <<EOF;
        I am the very model of a modern major general,
        I've information vegetable animal and mineral.
EOF

# Test:
sub test {
    $HTML -> P -> A(HREF=>"$href") 
	  -> IMG(SRC=>"foo.gif", ALT=>"FOO!") 
	  -> t("Copyright \251 1997 by me!")
	  -> _A;
    $HTML -> P -> text($verse) -> BR -> BR;
}

$HTML -> H1 -> t("NORMAL") -> _H1;
&test;
$HTML -> H1 -> t("NO AUTOFORMAT") -> _H1;
$HTML->auto_format(0);
&test;

