package Test;
my $foo  = "my \$foo";
our $bar = "our \$bar";
my $pack = __PACKAGE__;

sub baz { "$_[0] called Test::baz" }

package Page {
    use HTML::Writer qw(xhtml1-transitional.dtd);
    push local @ISA, $pack;
    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 ($foo, $bar, Page->baz) {
                        TR {
                            TD { $_ }; TD { $c++};
                        }
                    }
                };
                DIV { class_ "bar"; t "End of that." };
            }
        };
    };
};