--- autom4te.in.orig	2008-04-09 15:27:12.000000000 +0200
+++ autom4te.in	2008-04-09 15:28:46.000000000 +0200
@@ -596,6 +596,8 @@
       print $out "$res\n";
     }
 
+  $out->close();
+
   # If no forbidden words, we're done.
   return
     if ! %prohibited;