Untitled Document

print $q->div( { -id => "div-test" }, $q->div(@fields), );

Hello Goodbye Friend Adios Amigo

##

print $q->div(
            { -id => "div-test" }, 
               $q->div([@fields]),   
          );



Hello
Goodbye
Friend
Adios
Amigo




##

##

print $q->div(
            { -id => "div-test" }, 
               $q->div([@fields]),   
          );

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



Hello
Goodbye
Friend
Adios
Amigo











##

##

use CGI qw/:standard *div/;

##

##

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

##

##

Content-Type: text/html; charset=ISO-8859-1




Untitled Document




	Hello World


	Hello


	World


	
		Hello
	
	
		World