print header(),
   table ({-border=> "0", -width=> "340"},
   Tr ({-valign=> "top"},
    td (
     font ({-face=> "verdana,arial"},
      " Column One ",
     ), "\n",
    ), "\n",
    td (
     font ({-face=> "verdana,arial"},
      " Column Two ",
     ), "\n",
    ), "\n",
   ), "\n",
   Tr ({-valign=> "top"},
    td (
     font ({-face=> "verdana,arial"},
      " Data ",
     ), "\n",
    ), "\n",
    td (
     font ({-face=> "verdana,arial"},
      " Data ",
     ), "\n",
    ), "\n",
   ), "\n",
  ), "\n",
 ;

##</code><code>##

print $cgi->header(),
  $cgi->table ({-border=> "0", -width=> "340"},
   $cgi->Tr ({-valign=> "top"},
    $cgi->td (
     $cgi->font ({-face=> "verdana,arial"},
      " Column One ",
     ), "\n",
    ), "\n",
    $cgi->td (
     $cgi->font ({-face=> "verdana,arial"},
      " Column Two ",
     ), "\n",
    ), "\n",
   ), "\n",
   $cgi->Tr ({-valign=> "top"},
    $cgi->td (
     $cgi->font ({-face=> "verdana,arial"},
      " Data ",
     ), "\n",
    ), "\n",
    $cgi->td (
     $cgi->font ({-face=> "verdana,arial"},
      " Data ",
     ), "\n",
    ), "\n",
   ), "\n",
  ), "\n",
 ;