#!/usr/bin/perl

use strict;
use POSIX qw(:termios_h);

my $term = POSIX::Termios->new;
$term->getattr(fileno(STDIN));

print join(" - ", IGNCR, ECHO, ~ECHO, ECHOK, ICANON, $term->getlflag() )." \n";
print ($term->getlflag() | (ECHO | ECHOK |ICANON) ); print "\n";
print ($term->getlflag() & ~(ECHO | ECHOK |ICANON) ); print "\n";
print ($term->getlflag() | (ECHO | ECHOK |ICANON) ); print "\n";