--- a/Makefile	Mon Sep 03 12:22:41 2007 +0000
+++ b/Makefile	Mon Sep 03 12:28:14 2007 +0000
@@ -1,12 +1,14 @@
 BIN = mimecut
 CLEANFILES = $(BIN)
 
-.PHONY: all clean install
+.PHONY: all clean install test
 
 all:	$(BIN)
 
-clean:
-	-rm -f $(CLEANFILES)
+test:	all
+	prove --timer t/
+
+clean:  ; -rm -f $(CLEANFILES)
 
 %:	%.pl
 	# $<

--- 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: