I found a simple workaround. Change

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

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

to

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

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

(or shift the args out)