#! /usr/bin/perl

use strict;
use warnings;
use CGI qw /:standard *div/;
use CGI::Pretty;

my $q = CGI->new();

my @fields = qw(Hello World);

print header(),
      start_html(),
      div( @fields ),
      div( [@fields] ),
      div( { -id => "div-test" }, div(\@fields) );

print ( start_div({-id=>$_}), end_div() ) foreach @fields;
     
print end_html();

exit 0;