перехватить Ctrl+c

Добрый день! Как на winxp и ActivePerl5, перехватить ctrl+c (остановку скрипта),
до этого момента(до обработки ctrl+c) мне нужно успеть в скрипте сделать :
"$session->close;" (закрыть telnet сессию).

Заранее спасибо !!!

 

http://www.unix.com.ua/orelly/perl/cookbook/ch16_19.htm

Не работает?

 

больше спасибо за ответ. Но я не знаю куда поместить эту строку чтобы скрипт постоянно отслеживал это событие... (я не программист, я cisco учу....)

 

В самое начало :(

 

перехватывает.....на программа всё равно закрывается
можно ли программно запретить закрытие консоли....

 

Что-то я ничего не понял?
Вообще запретить убийство проги?
Ну попробуйте добавить:

Код (Text):

$SIG{KILL} = 'IGNORE';
$SIG{TERM} = 'IGNORE';

Но стоит ли оно того?