BEGIN {
    unshift @INC, "./Modules";
}
[download]

What do you think is the purpose of this? (I suspect it has none).

It's roughly the equivalent of

use lib './Modules';

It's quite common for times when you're on a multi-user system, and you don't have access to install modules in the main include directories. See perldoc lib for more information.

malformed header from script. Bad header=</body></html>: say_hello.cgi, referer: http://localhost/cgi-bin/say_hello.cgi

sub start_parser {
    my @resp = ();
    if (!param()){ 
    push @resp, &Modules::Htmlpage::make_header("Hello first page.");
    push @resp, &Modules::Htmlpage::make_first_page();
    } elsif (param('get_in')){
    push @resp, &Modules::Htmlpage::make_header("I say hello to you.")
+;
    push @resp, &Modules::Htmlpage::make_top_content("home");

    }
    push @resp, end_html;   
    return @resp;
}
[download]

If param() is true (i.e. there are parameters in the HTTP request) and param('get_in') is false (i.e. there isn't a get_in parameter or is was '' or '0') then start_parser() will just return '</body></html>'.

Fix it so that it returns an appropriate valid CGI response under these circumstances.

BTW: Do you know what the special &-prefixed subroutine call syntax does? If not then don't use it. If so, why you think you need it?

Update: Fixed spurious ! typo.

Just to help the newbies, when you call a function just with &foo the values in @_ are used as arguments to the function. This leads to some weird results.

So, when you just want to call a function, use foo().

Alberto Simões

!param() is true (i.e. there -> aren't <- parameters in the HTTP request).

Maybe i should read better ;) &-prefixed subroutines...

!param() is true (i.e. there aren't parameters in the HTTP request)

About &-prefixed .. it seems that a should read better ... :(