diff --git a/tcpdump_tools/tcpdumptognuplot b/tcpdump_tools/tcpdumptognuplot
new file mode 100755
index 0000000..bc94d2c
--- /dev/null
+++ b/tcpdump_tools/tcpdumptognuplot
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+$count = $ack = $prevtime = 0;
+
+while (<STDIN>) {
+	if (/${ARGV[0]}/) {
+		print "# ", $_;
+		# 20:22:42.441592 calypso.wsr.ac.at.ftp-data > octopussy.wsr.ac.at.1365: . 1:1461(1460) ack 1 win 57344 (DF)
+		if (/^(\d\d):(\d\d):(\d\d).(\d\d\d\d\d\d) /) {
+			print "# time: $1 $2 $3 $4\n";
+			$time = $1 * 3600 + $2 * 60 + $3 + $4 * 0.000001;
+			if ($prevtime == 0) { $prevtime = $time };
+			$time -= $prevtime;
+		}
+		if (/(\d+):(\d+)\((\d+)\)/) {
+			print "# sequence: $1 $2 $3\n";
+			# filter out initial seq. number but allow some packet loss
+			if ($2 == $1 + $3 && $1 <= $count + 300000) {
+				$count = $2;
+			}
+		}
+		if (/ ack (\d+)/) {
+			print "# ack: $1\n";
+			# filter out initial seq. number but allow some packet loss
+			if ($1 <= $ack + 300000) {
+				$ack = $1;
+			}
+		}
+		print $time, "\t", $count, "\t", $ack, "\n";
+	}
+}