#!/usr/bin/perl -l

use strict;
use warnings;
use CGI qw/:standard/;

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