Only print thesort order debug printout if using script-debug

    @$cases = sort { $sort_criteria{$a->{"name"}} cmp $sort_criteria{$b->{"name"}}; } @$cases;

###  For debugging the sort-order

    if ( $::opt_script_debug )

    {

      # For debugging the sort-order

      foreach $tinfo (@$cases)

      {

      print $sort_criteria{$tinfo->{"name"}};

      print " -> \t";

      print $tinfo->{"name"};

      print "\n";

	print("$sort_criteria{$tinfo->{'name'}} -> \t$tinfo->{'name'}\n");

      }

    }

  }