Perl处理键盘中断

我试图编码一种方式，当用户在CTRL+C中键入时，脚本将在关闭之前继续执行更多步骤。我知道如何在Python中实现这一点。python代码如下所示：

try:
    workbook = xlsxwriter.Workbook('Desktop\ODFU '+str(System)+'.xlsx')
    worksheet = workbook.add_worksheet()
    excelcreate(System)
    login(USER, PASS)
    test()
    time.sleep(2)
    print"Test is complete..."
    logout()
except KeyboardInterrupt: # CTRL+C Terminates script and saves everything and logs out
    print""
    print "Interruption occurred!! Script terminating..."
    workbook.close()
    logout()    

---

如何使用Perl获得与此完全相同的内容？

只需定义一个SIGINT处理程序：

local $SIG{INT} = sub {
    $workbook->close;
    logout();
    exit 130
};

---

只需定义一个SIGINT处理程序：

local $SIG{INT} = sub {
    $workbook->close;
    logout();
    exit 130
};

---

只需定义一个SIGINT处理程序：

local $SIG{INT} = sub {
    $workbook->close;
    logout();
    exit 130
};

---

只需定义一个SIGINT处理程序：

local $SIG{INT} = sub {
    $workbook->close;
    logout();
    exit 130
};

---

谢谢，我最后声明$SIG{'INT'}='interrupt'；然后声明子函数。谢谢，我最后声明$SIG{'INT'}='interrupt'；然后声明子函数。谢谢，我最后声明$SIG{'INT'}='interrupt'；然后声明子函数。谢谢，我最后声明$SIG{'INT'}='interrupt'；然后声明子函数。