s2> diff -uN TCP.pm.orig TCP.pm
--- TCP.pm.orig 2011-05-04 04:02:39.337702726 -0400
+++ TCP.pm      2011-05-04 04:04:31.943242279 -0400
@@ -60,6 +60,12 @@
           versn => '3.2',
           exmpl => 'http://argus.tcp4me.com/',
        },
+      tcp::accept => {
+         descr => 'HTTP accept request header field',
+         attrs => ['config', 'inherit'],
+         versn => '3.2',
+         exmpl => '*/*',
+      },

        tcp::readhow => {
           descr => 'how much data should be read from the server before checking expect',
@@ -322,6 +328,7 @@

      # build http request
      my $http = "Connection: close\r\n";
+    $http .= "Accept: $me->{tcp}{accept}\r\n"      if $me->{tcp}{accept};
      $http .= "User-Agent: $me->{tcp}{browser}\r\n" if $me->{tcp}{browser};
      $http .= "Referer: $me->{tcp}{referer}\r\n"    if $me->{tcp}{referer};
      # to assist in debugging...