Continuing a while loop

[Daniel Falkenberg]

List,

I need the code below to execute the sub double_check($host) but I still
want the while loop to continue exactly what it's doing.

Is this possible with Perl|? 

while (1) {
 $p       = Net::Ping->new("icmp", 4, 2);  #Ping object.  Uses icmp
protocal
 foreach $host (sort keys (%host)) {
         unless ($p->ping($host)) {
            $name = $host{$host}; #Name of the machine/host
                delete $host{$host};
            double_check($host);
            }
      }
}

==============================
VINTEK CONSULTING PTY LTD
(ACN 088 825 209)
Email:  [EMAIL PROTECTED]
WWW:    http://www.vintek.net
Tel:    (08) 8523 5035
Fax:    (08) 8523 2104
Snail:  P.O. Box 312
        Gawler   SA   5118
==============================


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]