My Favorite Things

#!/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__ ##

##

karls-mac-mini:monks karl$ ./html5.pl


 My Favorite Things
 
 Testomato
  My Favorite Things...
   

    Sex
    
Drugs
    
Rock and Roll
    
Charlie Haden
   

##

##



  
    My Favorite Things
    
  
  
    Testomato
    My Favorite Things...
    
      Sex
      Drugs
      Rock and Roll
      Charlie Haden