--- System.pm.orig      2009-02-27 09:16:03.000000000 -0600
+++ System.pm   2009-02-27 09:26:27.000000000 -0600
@@ -100,7 +100,10 @@
        print "Generating $file\n" if $genopts->{verbose};
        open(F, ">$file") || die "$0: Failed to open $file: $!\n";
        my $old = select F;
-	printf "# Autogenerated by %s on %s -- do not hand edit\n", $0, scalar(localtime);
+	printf "; Autogenerated by %s on %s\n", $0, scalar(localtime);
+	print  ";  **CAUTION** This file will be overwritten";
+	printf ";  if you execute %s again, and any changes", $0;
+	print  ";  made by hand will be LOST.";
        print <<"HEAD";
 # Dahdi Configuration File
 #