--- a/iconv.pl	Sat Mar 07 13:37:26 2009 +0100
+++ b/iconv.pl	Sat Mar 07 14:20:04 2009 +0100
@@ -12,6 +12,8 @@
 $ENV{LANG} = "C";
 delete @ENV{ grep /^LC_/, keys %ENV };
 
+my $VERSION = '$Id$';
+
 my $ME       = basename $0;
 my $CHARSETS = [qw(cp437 cp850 latin1)];
 
@@ -35,7 +37,7 @@
     -encoding => "utf-8",
 );
 my $FOOTER =
-  div({ -align => "right" }, "Scripting © 2008 Heiko Schlittermann");
+  div({ -align => "right" }, "Scripting © 2008 Heiko Schlittermann // $VERSION");
 
 END {
     unlink grep { -M > 1 } glob "/tmp/$ME.*";
@@ -66,11 +68,16 @@
         exit 0;
     };
 
-    print header(
+    $_ = join "",
+    header(
         -type       => "application/octet-stream",
         -attachment => $filename
       ),
       <$fh>;
+    open(X, ">/tmp/log");
+    print X $_;
+    cloes(X);
+    print;
     exit 0;
 
 }
@@ -179,3 +186,5 @@
 }
 
 print header, start_html, h1("Internal Error."), Dump, end_html;
+
+# vim:sts=4 sw=4 aw ai sm: