package Net::Ping;

sub new {
    my ($_class, @_l) = @_;
}

sub ping {
    my ($_class, $_host, $_o_timeout) = @_;
}