-print "\n\n" if $DEBUG == 2;
-
-{
- my %HEADER;
- for (sort keys %header){ # Sort, so lowercase and underscores come first)
- my $copy = $_;
- tr/_/-/;
- s/\b(\w)(\w*)/\U$1\E\L$2\E/g;
- $HEADER{$_} = $header{$copy};
- }
- for (keys %HEADER){
- print "$_: $HEADER{$_}\n";
- }
- print "\n";
-}
-