#!/usr/bin/perl -l

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

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

##</code><code>##

#!/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;
}