sub THPING {
    my ($args) = @_;
    ...
}

sub PINGIT {
    my ($addr) = @_;
    ...
}