Add a hash-bang line to the example script.

--- a/dhtml_test.pl
+++ b/dhtml_test.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 
 use strict ;
 use Data::TreeDumper ;