#!/usr/local/bin/perl # $Id: echo-server-inetd.pl,v 1.1 2001年04月21日 18:56:40 68user Exp $ $|=1; # バッファリングしない while (){ print "my echod: $_"; }