Help for this page
Select Code to Download
Select
or
download this
local $SIG{INT} = sub { ReadMode 'restore', $IN; exit };