diff -ruN Net-Pcap-0.16-orig/eg/pcapdump Net-Pcap-0.16/eg/pcapdump
--- Net-Pcap-0.16-orig/eg/pcapdump	2008-01-01 09:12:30.000000000 +0000
+++ Net-Pcap-0.16/eg/pcapdump	2010-03-02 16:21:42.278072411 +0000
@@ -129,7 +129,7 @@
         }
         elsif ($ipframe->{proto} == IP_PROTO_UDP) {
             my $udpframe = NetPacket::UDP->decode($ipframe->{data});
-            $proto     = "TCP";
+            $proto     = "UDP";
             $src_port  = $udpframe->{src_port};
             $dest_port = $udpframe->{dest_port};
             $payload   = $udpframe->{data};