--- a/mimecut.pl	Mon Sep 03 12:22:41 2007 +0000
+++ b/mimecut.pl	Mon Sep 03 12:28:14 2007 +0000
@@ -8,10 +8,11 @@
 use MIME::Head;
 use Getopt::Long;
 use File::Basename;
+use FindBin qw($Bin);
 
 my $ME      = basename $0;
 my $MEPID   = $$;
-my $CONFDIR = '.';
+my $CONFDIR = -f "$Bin/.build" ? $Bin : "/etc/$0";
 my $LOGDIR  = '.';
 my $HELP    = <<EOF;
 Usage: