croak("icmp ping requires root privilege") if ($> and $^O ne 'VMS');