diff --git a/ChangeLog b/ChangeLog
index 85cdde1a..5c661f16 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-17  Akim Demaille  <akim@epita.fr>
+
+	* tests/tools.at (autoheader): Put randoms `@' to stress Perl.
+
 2002-10-16  Paul Eggert  <eggert@twinsun.com>
 
 	* Makefile.maint (wget_files): Remove ansi2knr.c.
diff --git a/tests/tools.at b/tests/tools.at
index f1de9599..087aca66 100644
--- a/tests/tools.at
+++ b/tests/tools.at
@@ -458,9 +458,14 @@ AT_DATA([configure.ac],
 AC_CONFIG_HEADERS(config.h:config.hin)
 AH_TOP([Top1 from configure.ac.])
 AH_TOP([Top2 from configure.ac.])
+AH_TOP([The Cat in a @.])
 AH_VERBATIM([Middle], [Middle from configure.ac.])
+AH_VERBATIM([Mouse],  [The Mouse in a @.])
 AH_BOTTOM([Bottom1 from configure.ac.])
 AH_BOTTOM([Bottom2 from configure.ac.])
+AH_BOTTOM([The Dog in a @.])
+
+AC_DEFINE([ANT], [@], [The Ant in a @.])
 ]])
 
 
@@ -479,8 +484,15 @@ Top1 from configure.ac.
 
 Top2 from configure.ac.
 
+The Cat in a @.
+
+/* The Ant in a @. */
+#undef ANT
+
 Middle from configure.ac.
 
+The Mouse in a @.
+
 /* Define to the address where bug reports for this package should be sent. */
 #undef PACKAGE_BUGREPORT
 
@@ -499,6 +511,8 @@ Middle from configure.ac.
 Bottom1 from configure.ac.
 
 Bottom2 from configure.ac.
+
+The Dog in a @.
 /* Bottom from acconfig.h. */
 ]])