foreach my $nl ("", "\n", "\r", "\r\n") { ok ($object->send ($text.$nl), "send"); is ($object->receive (), $text, "receive text without line ending"); }