while (sysread(STDIN, my $ch, 1) > 0) {
    if ($ch eq "\r" or $ch eq "\n")
         {syswrite(STDOUT, $eol) unless $last eq "\r" and $ch eq "\n"}
    else {syswrite(STDOUT, $ch) }
    $last = $ch;
}