in reply to Control C in PERL?

Capturing signals is discussed in great detail in perlipc.

local $SIG{INT} = 'IGNORE';

buckaduck