add NetEcho implemented in Perl