Select Code to Download

sub header {
    my $self = shift;

...
        @_
    );
}

1222c1222
<         return $self->header();
---
>         $cgi = $self->{_SESSION_OBJ};

 # call header to instantiate CGI object, but throw away the result
$sess->header();
# _now_ print the header
...
Expires: Mon, 18 Oct 2004 21:52:43 GMT
Date: Mon, 18 Oct 2004 21:42:43 GMT
Content-Type: text/html; charset=ISO-8859-1