#!/usr/bin/perl
use HTML::Writer qw(xhtml1-transitional.dtd);

render {
    HTML {
        HEAD {
            TITLE { "foo bar"};
        };
        BODY {
            class_ "ugly";
            onload_ "javascript: mumble()";
            DIV {
                class_ "foo";
                id_    "bar";
                t      "If in doubt, mumble.";
                IMG { src_ "foo.jpg" }; 
            };
            TABLE {
                my $c;
                for (qw(foo bar baz)) {
                    TR {
                        TD { $_ }; TD { $c++};
                    } 
                } 
            };
            DIV { class_ "bar"; t "End of that." };
        } 
    };
} 1; # <-- indent level.. kinda odd at this position...