This is a limitation (or feature, depending on how you look at it) of your operating system, not of Perl.

I believe that Net::Ping offers alternatives to the icmp ping, because of that reason. Also consider just shelling out to ping, which likely is setuid root for that reason (if it is available to normal users).