Select Code to Download

package main;
use CGI qw(header);
...
# loads plugins

print header( $header_ref );

$header_ref = {
    'content-length'  => 1234,
...
    '-Content-Length' => 1234,
    '-Content_Length' => 1234,
};

# plugins/foo
package foo;
$main::header_ref->{'-status'} = '304 Not Modified';

# plugins/bar
package bar;
$main::header_ref->{'Status'} = '404 Not Found';

# plugins/foo
package foo;
...

    return $key;
}