#!/usr/bin/env perl

use strict;
use warnings;

use CGI qw(:standard);

my $data = {list => [qw(foo bar baz)]};

print start_html(-title => "Hello world");

print ul(
    map{
        li(
            div({class => 'inforno'}, "----$_----")
        ) . "\n"
    } @{$data->{'list'}}
);

print end_html();