my $action = sub {
      return [200, [ 'Content-Type' => 'text/aXML' ],
                   [ '(use)(qd)action(/qd)(/use)'  ] ]; };


##</code><code>##


my $action = sub {
     
return [200, [ 'Content-Type' => 'text/aXML' ],

       [ 
         process(

          "$doc_root/actions/$qd->{'action'}/body.aXML" 

                ) 
       ] 
    ]; 
};