@H_502_1@我如何获得脚本的名称？
例如，我有一个名为XXX.pl的perl脚本。
此文件包含：
$name = #some function that obtains the script's own name print $name;
输出：
XXX.pl