You can try to use Net::Ping::External, which actually invokes ping command.

Creation of ICMP-packets requires special privileges on some systems (e.g. suid on linux), so, it is a bit not-convenient to use ICMP-protocol from perl. ping command already has that privilege/capability, and it is more-or-less safe to use it from security point of view.