#! /usr/bin/perl

use Net::RawSock;

## $pkt comes from tcpdump -lnx -s 1500 -i lo
my $pkt =    
  "\x45\x10\x00\x3c\xcc\xce\x40\x00\x40\x06\x6f\xdb\x7f\x00\x00\x01".
  "\x7f\x00\x00\x01\x84\x32\x00\x50\xab\x84\xed\xbd\x00\x00\x00\x00".
  "\xa0\x02\x7f\xff\x4f\xdc\x00\x00\x02\x04\x40\x0c\x04\x02\x08\x0a".
  "\x00\x99\x21\x73\x00\x00\x00\x00\x01\x03\x03\x00";

Net::RawSock::write_ip($pkt);