my $ping;
my $proto = $args{"proto"}?$args{"proto"}:"udp";

unless( $ping = $memory{"ping_${proto}_$args{frequency}"} ) {
    if( ($proto eq "icmp") && $> && Platforms::isunix() ) {
	print STDERR "$main::prog: WARNING: ICMP ping probably only works when running as root\n";
    }
    &uxmon::load_module( "ping" );
    &uxmon::checker(
	$memory{"ping_${proto}_$args{frequency}"} = $ping = Monitor::ping->new( $args{"proto"}, 8, undef, $args{"pingcmd"} )
    );
    $ping->sched_frequency( $args{"frequency"} );
}

$ping->add_hosts( $args{"host"}, $args{"alias"}.".conn" );
