请问perl下如何捕获Ctrl+c信号

请问perl下如何捕获Ctrl+c信号

请问perl下如何捕获Ctrl+c信号
当perl脚本在运行时,ctrl+c,要脚本去处理一个函数,而不是直接推出。
我只知道c可以实现,请问perl下如何实现。
用%SIG进行信号处理的注册.
用%SIG进行信号处理的注册吧.
$SIG{INT} = sub{print "no way!!!\n";};
thank you!.