It's simple, I can do it only in Perl. No skills in other languages. Sorry :-))) And sure, I am using regex to parse output from command (in fact it isn't ip ping but decnet ping on Decnet patched Linux).

But THX anyway :-)

Li Tin O've Weedle
mad Tsort's philosopher