local $SIG{INT} = sub { ReadMode 'restore', $IN; exit };