#!/usr/bin/env perl
use strict;
use warnings;
my $conforig = 'httpd.conf-orig';
my $confnocm = 'httpd.conf-nocomments';
open my $IN,  '<', $conforig
     or die "Could not open $conforig for reading: $!";
my $text;
while (<$IN>) {
  if (!/\#\s+/) {
    $text .= $_;
  }
}
close $IN
   or die "Error closing $conforig: $!";
# remove blank lines
$text =~ s{\n{2,}}{\n}gm;
open my $OUT, '>', $confnocm
     or die "Could not open $confnocm for writing: $!";
print $OUT $text;
close $OUT or die "Error closing $confnocm: $!";