Index: app/src/compiledic/compiledic
===================================================================
--- app/src/compiledic/compiledic	(revision 25ae32e4c2354e0ed6756bbe1de83f39cd814652)
+++ app/src/compiledic/compiledic	(revision 20b4e44e7537762f6aceb72b039f6e8f8a50e201)
@@ -1,3 +1,20 @@
 #! /usr/bin/env perl
+
+#package:	UAM Text Tools
+#component:	compiledic
+#version:	1.0
+#author:	Tomasz Obrebski
+
+use strict;
+use locale;
+use File::HomeDir;
+use File::Basename;
+use File::Temp;
+use Getopt::Long;
+
+my $systemconfigfile='';
+my $userconfigfile=home()."/.utt/compiledic.conf";
+
+Getopt::Long::Configure('no_ignore_case_always');
 
 $symfile='~/.utt/pl/pl_PL.iso-8859-2.sym';
@@ -7,12 +24,9 @@
 $sclfile = $symfilenoext . '.scl';
 
-use locale;
-#use strict;
-
 ##################################################
 $linesPerFile = 20000;
 
 if (@ARGV < 1) {
-    print "usage: prep_user_dict.pl dictionary_file\n";
+    print "usage: ", basename($0), " dictionary_file\n";
     exit;
 }