--- dump.pl	2007/04/22 11:46:47	1
+++ dump.pl	2007/04/22 14:41:37	4
@@ -13,5 +13,5 @@
 while (1) {
   my $data;
   next unless $sock->recv($data,1024);
-  print $data, "\n", "-" x 30, "\n";
+  print "#" x 30, "\n", $data, "\n", "-" x 30, "\n";
 }