
my $y;
my @database = reverse (1..1000);

$y = 'A'x1000;

for( my $x = 0 ; $x<100;$x++)
{
 if(fork)
 {
    system "ping -n 1 $x.$x.$x.$x";
    exit(0);
 }
}