--- a/read-httpd-conf	Thu Jan 30 15:31:48 2014 +0100
+++ b/read-httpd-conf	Mon Mar 03 12:46:18 2014 +0100
@@ -4,6 +4,8 @@
 use warnings;
 use Carp;
 
+our $VERSION = 0.01;
+
 sub read_file {
     my $file = shift;
     open(my $fh, '<', $file)
@@ -11,14 +13,13 @@
     say "# 1 $file";
     while (<$fh>) {
         if (/^\s*include\s+(?<quote>["'])?(?<file>.*?)\k<quote>?\s*$/i) {
-
-            #print "#$file:$.:$_";
             say "# $. $file INCLUDE $+{file}";
             read_file($_) foreach (glob $+{file});
             next;
         }
         print;
     }
+    return;
 }
 
 die "$0: Need file name (httpd.conf)\n"