#!/usr/bin/env perl

use strict;
use warnings;
use HTML::HTML5::Builder qw[:standard];

my @things = ( "Sex", "Drugs", "Rock and Roll", "Charlie Haden", );

print html(
    -lang => 'en',
    head( title('My Favorite Things'), Meta( -charset=> 'utf-8' ), ),
    body(
        h1('Testomato'),
        p('My Favorite Things...'),
        ul( map li($_), @things ),
    ),
);

__END__