--- a/read-httpd-conf	Sat Mar 08 12:24:44 2014 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,26 +0,0 @@
-#!/usr/bin/perl
-use 5.010;
-use strict;
-use warnings;
-use Carp;
-use File::Basename;
-
-sub read_file {
-    my ($file, $basedir) = @_;
-    open(my $fh, '<', $file)
-      or croak "Can't open $file: $!\n";
-    say "# 1 $file";
-    while (<$fh>) {
-        if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
-            my $file = $+{file} =~ m{^/} ? $+{file} : "$basedir/$+{file}";
-            say "# $. $file INCLUDE $+{file}";
-            read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file);
-            next;
-        }
-        print;
-    }
-}
-
-die "$0: Need file name (httpd.conf)\n"
-  unless @ARGV;
-read_file($ARGV[0], dirname($ARGV[0]));