I am appearing to have some troubles. It appears that it can not reach the hosts specified, but when I try it manually it works just fine. 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} = "*** NOT PINGABLE!! PLEASE CHECK!!***\n"; 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]