sub Ping{
    my ($self,$host) = @_;  
    my $p = Net::Ping->new("external",1,80);
    $p->hires();
    print "HOST->".$host."\n";
    my ($ret, $dur, $ip)  = $p->ping($host);
    print "RET->".$ret."\n";
    print "DUR->".$dur."\n";
    print "IP->".$ip."\n";
    if (defined($ret)){
        return $ret;
    } else {
        return undef;
    }
}