Funziona, ma tu hai settato:

$p = Net::Ping->new();

il che implica che verranno usato il protocollo di default, ovvero TCP.

Google non risponde a questo tipo di ping.

se setti invece:

$p = Net::Ping->new('icmp');

avrai successo.