--- a/read-httpd-conf	Sat Mar 08 12:24:44 2014 +0100
+++ b/read-httpd-conf	Wed Apr 09 15:47:15 2014 +0200
@@ -5,6 +5,8 @@
 use Carp;
 use File::Basename;
 
+our $VERSION = 0.01;
+
 sub read_file {
     my ($file, $basedir) = @_;
     open(my $fh, '<', $file)
@@ -19,6 +21,7 @@
         }
         print;
     }
+    return;
 }
 
 die "$0: Need file name (httpd.conf)\n"