[root@orpheus jonathan]# perl -e 'use Net::Ping; $p = Net::Ping->new();'
[root@orpheus jonathan]# mv /etc/protocols /etc/protocols.bak
[root@orpheus jonathan]# perl -e 'use Net::Ping; $p = Net::Ping->new();'
Can't get tcp protocol by name at -e line 1
[root@orpheus jonathan]#