package Wardwrapper;

   use Apache::Request;

   use CGI;

   $Wardwrapper::apachebaby = {};
   $Wardwrapper::cgibaby    = {};

   $Wardwrapper::apachebaby = Apache::Request->new();
   $Wardwrapper::cgibaby    = CGI->new();

   $Wardwrapper::apacheparamref = sub { Apache::Request->param(@_) };
   $Wardwrapper::cgiparamref    = sub { $Wardwrapper::cgibaby->param(@_) };

   # used here only for demonstrational purposes
   $Wardwrapper::cgiheaderref   = sub { $Wardwrapper::cgibaby->header() };


   sub new {

      my($class) = shift;

      my($this)  = {};

      bless($this, $class);

      return($this);
   }

   sub cgiparam {

      return(&$Wardwrapper::cgiparamref);
   }

   sub apacheparam {

      return(&$Wardwrapper::apacheparamref);
   }

   sub cgiheader {

      return(&$Wardwrapper::cgiheaderref);
   }

   package main;

   my($ww) = Wardwrapper->new();

   my(@cgiparams) = $ww->cgiparam();

   print(join(qq[\n\n],@cgiparams));

   print($ww->cgiheader());

   # or even...
   print $ww->{'cgibaby'}->version();