Select Code to Download

print header(),
   table ({-border=> "0", -width=> "340"},
...
   ), "\n",
  ), "\n",
 ;

print $cgi->header(),
  $cgi->table ({-border=> "0", -width=> "340"},
...
   ), "\n",
  ), "\n",
 ;