Select Code to Download

my %trace=( index_generation => 1,
                  link_computation => 0,
                  link output      => 1,
                );

sub my_log
  { my $type= shift;
    print LOG @_ if(    ( $trace{all}
...
                        )
                   );
  }