Select Code to Download

while (@dead_kids <10)
{
   sleep(1);
}
print "all kids dead .. @dead_kids\n";

#!/usr/bin/perl -w

...
   }
   return;
}