my $type = "";
     my $name = "";
     my $action = "";


##</code><code>##

    our ($type,$name,$action);


##</code><code>##

 format fmtZone =
 @<<<<       @<<<<<<  @<<<<<    dbgZONE
 $type,      $name,   $action
 .
 format fmtGroup =
      @<<<<  @<<<<<<  @<<<<<<   dbgGROUP
      $type, $name,   $action
 .