#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
Main( @ARGV );
exit( 0 );
sub Main {
    my $html = <<'__THIS_IS_MY_HTML__';
...
__THIS_IS_MY_HTML__

    my $q = CGI->new;
    print $q->header, $html;
}