use strict;
use Net::PcapWriter;
my $pcap = Net::PcapWriter->new('test.pcap');
my $conn = $pcap->tcp_conn('1.1.1.1',1234,'2.2.2.2',80);
$conn->write(0,"GET / HTTP/1.0rnHost:..."); # HTTP request from client
$conn->write(1,"HTTP/1.1 200 okrn...");     # HTTP response from server