Help for this page
echo foo | perl -e '$x=`stty -a --file=/dev/stdin`; print "\$x=$x\n";'
speed 38400 baud; rows 50; columns 131; line = 0; intr = ^C; quit = ^\; erase = ^?; kill = ^U; eof = ^D; eol = <undef>; ... isig icanon iexten echo echoe echok -echonl -noflsh -xcase -tostop -ec +hoprt echoctl echoke