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

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

##</code><code>##

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

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