diff --git a/indra/test/blowfish.pl b/indra/test/blowfish.pl
index 7940d87aa605b1fd679ae40525283cbaf708aad2..30f41dcd4c0863d57e4832f750cb388fb2023124 100755
--- a/indra/test/blowfish.pl
+++ b/indra/test/blowfish.pl
@@ -1,4 +1,9 @@
 #!/usr/bin/perl
+#
+# Test Perl Crypt::CBC Blowfish algorithm and initial parameter settings
+# for compatibility with OpenSSL's Blowfish algorithm/settings.
+#
+# Used by outbound LSL email (openssl C library) and mailglue (Perl library)
 use strict;
 use warnings;