#!/usr/bin/perl -w
use CGI;
use CGI ":standard";

$cgi = new CGI;
print $cgi->header(),
$cgi->start_html(),
$cgi->div({-id=>pagewrap},
   if($index==0) { 
       $cgi->p("Hello"),
   }
),
$cgi->end_html();