$ perl cctrap.pl 
Term::ReadLine::Stub
try CTRL-C in some text here :abcd^C
 caught CODE(0x194e9a0)INT
xyz
$