Select Code to Download

my $ip = inet_aton('192.168.0.1');
my $saddr = sockaddr_in(0,$ip);

socket(SOCK,PF_INET,SOCK_RAW,getprotobyname('icmp');

use strict;
use Socket;
...
  print "Usage $0 : <host ip> -c <request type[ec/ts/in/am]> -t <timeo
+ut>\n";
  exit(1);
  }