Help for this page
C:\>perl -de 1 ... 5.008006 DB<6> q
socket($self->{"fh"}, PF_INET, SOCK_RAW, $self->{"proto_num"}) || croak("icmp socket error - $!");