cl-who in Perl

gistfile1.pl

HTML::Who->new->html(
  [h1 => 'hello!'],
  [a => href => "http://mojocasts.com",
    [img => src => "http://farm5.static.flickr.com/4135/4815586283_fea2da5c2b.jpg"],
    [img => src => "http://farm5.static.flickr.com/4135/4815586283_fea2da5c2b.jpg"]],
  [ul =>
    [li => [a => href => "a.com", [img => src => "a.png"]]],
    [li => [a => href => "a.com", [img => src => "a.png"]]],
    [li => [a => href => "a.com", [img => src => "a.png"]]],
    [li => [a => href => "a.com", [img => src => "a.png"]]]],
  [div => class => 'header', 
    [div => style => 'display: none;' => ['text inside']],
    [div => class => 'subheader' => ['text inside 2']]]
);