--- trunk/httpd.pl	2004/05/10 22:04:01	42
+++ trunk/httpd.pl	2004/05/11 15:36:51	43
@@ -3,6 +3,11 @@
 # based on post 
 # http://www.mail-archive.com/libwww@perl.org/msg04750.html
 
+BEGIN {
+        my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##;
+	unshift(@INC, $basedir);
+}
+
 use strict;
 use warnings;
 use MWS::SWISH;