Index: app/src/ser/ser
===================================================================
--- app/src/ser/ser	(revision 754d2a3af45fbb9ef2f650ef3c85a6cce1d960f9)
+++ app/src/ser/ser	(revision 20b4e44e7537762f6aceb72b039f6e8f8a50e201)
@@ -3,17 +3,16 @@
 #package:        UAM Text Tools
 #component:      ser (pattern search tool)
-#author:         Tomasz Obrêbski
+#version:	 1.0
+#author:         Tomasz Obrebski
 
 use strict;
 use Getopt::Long;
 use File::Temp;
+use File::HomeDir;
 
 my $LIB_DIR="/usr/local/lib/utt";
-
 my $systemconfigfile='/usr/local/etc/utt/ser.conf';
-my $userconfigfile="$ENV{'HOME'}/.utt/ser.conf";
-
-#use lib "$ENV{HOME}/.utt/lib/perl";
-#use attr;
+#my $userconfigfile="$ENV{'HOME'}/.utt/ser.conf";
+my $userconfigfile=home()."/.utt/ser.conf";
 
 Getopt::Long::Configure('no_ignore_case_always');
@@ -161,6 +160,15 @@
 if($flex)
 {
-    system "cat $tmpfile_l";
-    exit 0;
+	#system "cat $tmpfile_l";
+	if(open(FLEX, $tmpfile_l)) {
+		while(<FLEX>) {
+			print @_;
+		}
+		close FLEX;
+	}
+	else {
+		print "Unable to open file $tmpfile_l\n";
+	}
+    	exit 0;
 }
 
@@ -169,4 +177,7 @@
 system "$tmpfile_x";
 
-system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x";
+#system "rm -f $tmpfile_l $tmpfile_c $tmpfile_x";
+unlink $tmpfile_l;
+unlink $tmpfile_c;
+unlink $tmpfile_x;