Take a look at the Net::Ping module. The sub ping_icmp is an example of how to pack data into the format needed by an icmp packet.

wcn