#!/usr/local/bin/perl
use warnings;
use 5.012;
use utf8;
use CGI;

my $cgi = CGI->new();

my $css=<<EOCSS;
body {
  margin:0;
  padding:0;
  /*background-color: #0080c0;*/
}
con_1 {
  position: relative;
  height: 300px;
}
EOCSS

print $cgi->header( -charset => 'UTF-8' );
print $cgi->start_html( 
   -style => { 
      -type => 'text/css',
      -code => $css,
   }
);
print $cgi->p( { -id => "con_1" }, 'Hello World' );
print $cgi->end_html;