Try this: Net::RawIP

You can kludge up packets that have pretty much arbitrary header fields, and turn them loose on the network. How well this works for you is probably operating-system dependent.