use CGI;
# zur Laufzeit also:
print $foo->header(CGI->new);

sub header{
  my $self      = shift;
  my $cgiobject = shift;
  return $cgiobject->header();
}