書き込みテスト

use warnings;
use IO::Socket::INET;

my $s = IO::Socket::INET->new(Listen => 5, LocalPort => $ARGV[0], Proto => 'tcp', ReuseAddr => 1) or die $!;

$s->listen;

while(my $c = $s->accept) {
while(my $q = $c->getline) {
print $q;
$c->print($q);
}
$c->close;
}
$s->close;

ここまで読んだ


720 名前：login:Penguin [sage]： 2019/05/11(土) 13:22:25.73 ID:N1J1rW33 (3)
コマンド的な英字の文がぜんぶ書き込めないのかと思いきや、

ネットから適当にコピペしたのは書き込める

どーゆーことや？