diff --git a/tei2txt/bin/tei2txt.pl b/tei2txt/bin/tei2txt.pl
index da25176..a9e87c4 100644
--- a/tei2txt/bin/tei2txt.pl
+++ b/tei2txt/bin/tei2txt.pl
@@ -1,12 +1,11 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
 #=======================================================================
 #         FILE:  tei2txt.pl
-#  DESCRIPTION:  
+#  DESCRIPTION:  Tools for transforming TEI to Plain Text
 #       AUTHOR:  Konstantin Baierer (kba), konstantin.baierer@gmail.com
 #      CREATED:  10/27/2011 04:13:17 PM
 #=======================================================================
 use DTA::TEI::Text::Transform;
 
 my $app = DTA::TEI::Text::Transform->new_with_options;
-$app->to_stdout(1);
 $app->process;
diff --git a/tei2txt/lib/DTA/TEI/Text/Transform.pm b/tei2txt/lib/DTA/TEI/Text/Transform.pm
index c2fa878..7a06bea 100644
--- a/tei2txt/lib/DTA/TEI/Text/Transform.pm
+++ b/tei2txt/lib/DTA/TEI/Text/Transform.pm
@@ -11,6 +11,7 @@ use Data::Dumper;
 use File::Share ':all';
 use DTA::TEI::Text;
 use File::Temp qw(tempfile);
+use File::Slurp;
 use IPC::Open2;
 
 binmode STDIN, ":utf8";