my $state = 0;
  my $debug = 0;;

  while(<>) {
    $debug=1,$state++,next if /^\s*#if.*DEBUG/;
    $state++ if /^\s*#if/;
    $state-- if /^\s*#endif/;
    $debug=0,next if $debug && $state==0;
    print if $debug==0;
  }