4 # Description: Generate ping packets and count the responses
5 # Author: sapanb@cs.princeton.edu
10 #please change to something local
11 my $guineapig='tux.cs.princeton.edu';
15 system("sudo ping -c $numiter -i 0.1 $guineapig");
20 my $filter="icmp and src $guineapig";
21 my $cmdline="/usr/sbin/tcpdump -c $numiter $filter";
27 print "[FAILED] tcpdump apparently did not intercept all SYN/ACK packets\n";
31 print "Starting tcpdump...\n";
32 my $tcpdthr=threads->create(\&open_tcpdump);
34 print "Generating connections...\n";
36 $SIG{ALRM}=\&alhandler;
40 print "[SUCCESS] Test completed OK.\n";