在Perl程序中，关闭文件句柄通常使用`close（）`函数。这个函数用于关闭已经打开的文件句柄，释放与之关联的系统资源。以下是一个简单的例子：
```perl
open（MYFILE, "file1"） || die（"Could not open file"）；
执行一些文件操作...
close（MYFILE）； 关闭文件句柄
```
在上面的代码中，`open（MYFILE, "file1"）`用于打开一个名为"file1"的文件，并将其句柄赋给变量`MYFILE`。如果文件打开失败，程序会输出错误信息并退出。在文件操作完成后，使用`close（MYFILE）`来关闭文件句柄。
需要注意的是，Perl会在句柄超出作用域或程序结束时自动关闭文件句柄，但在某些情况下，如程序异常退出或需要提前关闭文件时，显式调用`close（）`函数是一个好习惯。
此外，如果你想要关闭Perl解释器本身，可以通过以下方式实现：
1. 在命令行中，可以使用`exit`命令来退出Perl解释器。例如：
```sh
perl -e 'exit'
```
2. 在Perl脚本中，可以使用`exit`函数来退出脚本。例如：
```perl
exit 0； 退出状态码0表示正常退出
```
3. 如果你想要在脚本中设置一个退出点，可以使用`die`函数抛出一个异常，并在适当的位置捕获这个异常来执行清理工作。例如：
```perl
eval {
执行一些可能抛出异常的操作...
exit 0； 正常退出
}；
if （$@） {
捕获到异常，执行清理工作
print "An error occurred: $@\n"；
exit 1； 非零状态码表示异常退出
}
```
在上面的代码中，`eval`块用于执行可能抛出异常的操作，如果发生异常，`$@`变量会包含异常信息。在`if`语句中，我们检查是否捕获到异常，并执行相应的清理工作，然后退出程序。
总结来说，关闭Perl程序可以通过退出解释器、关闭文件句柄或捕获异常等方式实现。在编写Perl脚本时，建议显式关闭文件句柄，并在适当的位置使用`exit`函数来确保程序能够正常退出。
