Trouble with Net::Ping

[Joseph Bajin]

 I am appearing to have some
troubles. Here is what I have for my code:



#!/usr/bin/perl -w
use strict;
use Net::Ping;

################Initalize Variables#####################
my @hosts= qw(au);
my $t;
my @lines;
my $hostname;
my %status;

#while(1){

        $t = Net::Ping->new();
    foreach $hostname (@hosts) {
    if ($t->ping("ad.$hostname.doubleclick.net") ) {
            $status{$hostname} = " is alive.\n";
            print "This connection is alive.\n";
            }else {
               $status{$hostname} = "<font color=red><B>*** NOT PINGABLE!!
PLEASE CHECK!!***\n</b></font>";
            print "Thing connection is have problems.";
        }
            $t->close();
    }

    &emailstatus(%status)
    
    
    ....
    
    The code goes on and I know that works but this part is where I am 
having
the troubles. Can someone maybe point me in the right direction.
    
    Thanks,
    
    Joseph Bajin
Associate Systems Administrator


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