VinsWorldcom@C:\Users\VinsWorldcom\tmp\ppc> ppc -i "Wireless Network Connection"
Welcome to Perl Packet Crafter (PPC)
Version:  1.02
Copyright (C) VinsWorldcom 2012

Wireless Network Connection

ppc> $r = srp( packet( ETHER, IPv4(dst=>'www.google.com',id=>'19245',flags=>NF_IPv4_DONT_FRAGMENT),TCP(dst=>80,seq=>'13456')) );
Sent => Received


ppc> $r->report;
Packet 1
  Sent: Sat Mar 14 20:03:17 2015 (1426377797.565053)
ETH: dst:xx:xx:xx:xx:xx:xx  src:xx:xx:xx:xx:xx:xy  type:0x0800
IPv4: version:4  hlen:5  tos:0x00  length:40  id:19245
IPv4: flags:0x02  offset:0  ttl:128  protocol:0x06  checksum:0x3092
IPv4: src:192.168.10.105  dst:216.58.219.196
TCP: src:5443  dst:80  seq:0x3490  ack:0x0000
TCP: off:0x05  x2:0x0  flags:0x02  win:65535  checksum:0xe6ae  urp:0x00
  Recv: Sat Mar 14 20:03:17 2015 (1426377797.591432)
ETH: dst:c0:cb:38:08:46:76  src:58:6d:8f:78:ad:40  type:0x0800
IPv4: version:4  hlen:5  tos:0x20  length:44  id:39786
IPv4: flags:0x00  offset:0  ttl:55  protocol:0x06  checksum:0x6931
IPv4: src:216.58.219.196  dst:192.168.10.105
TCP: src:80  dst:5443  seq:0x15f689c0  ack:0x3491
TCP: off:0x06  x2:0x0  flags:0x12  win:42900  checksum:0x87b4  urp:0x00
TCP: optionsLength:4  options:02040596
  Interval = 0.026379 secs


ppc>