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

my $cgi = CGI->new();

print $cgi->header( -charset => 'UTF-8' );
print $cgi->start_html( 
   -style => { 
      -type => 'text/css', 
      -code => {
         body {
            margin:0;
	    padding:0;
	    /*background-color: #0080c0;*/
         }
         #con_1 {
	    position: relative;
	    height: 300px;
         }
      }
   }
);
print $cgi->p( { -id => "con_1" }, 'Hello World' );
print $cgi->end_html; 

# Quantifier follows nothing in regex; marked by <-- HERE 
# in m/* <-- HERE background-color: #0080c0;*/ at ./so.cgi line 16.