view release on metacpan or  search on metacpan

site/articles/perlmonth1_intro.html  view on Meta::CPAN

use CGI qw/:standard *table/;
my(@data) = ('Some', 'Data', 'To', 'Loop', 'Over', ':)');
print 
  header,
  start_html('Example'),
  start_table({-border=>2, -bgcolor=>'blue'}),
  Tr,td,
  start_table({-border=>4, -bgcolor=>'white'})
  ;

# pretend we are reading from database cursor, so code
# would be written like so
my($data, $count);
while(@data) { 
    if($data and $count++ % 2) {
	print end_table,td,start_table({-border=>4, -bgcolor=>'white'});
    }
    $data = shift @data;
    print Tr({align=>CENTER},
	     [td([uc($data)."\n"])]
	    )