Select Code to Download

Select or download this

#! perl -slw
use strict;
...
"my" variable $count masks earlier declaration in same scope at d:/Per
+l/site/lib/Win32/PingICMP.pm line 121.
128.231.013.057 : 0 : 128.231.013.057 : IP_REQ_TIMED_OUT
209.197.123.153 : 1 : 209.197.123.153 : IP_SUCCESS

Select or download this

D:\Perl\test>perl -mWin32::PingICMP -de1

...
'warnings.pm' => '1.00 from d:/Perl/lib/warnings.pm'
'warnings/register.pm' => '1.00 from d:/Perl/lib/warnings/register.pm'
  DB<1>