Couldn't you just take the example ping program from Net::RawIP and patch it as you desire?

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.