在perl中使用错误但没有堆栈跟踪的正确方法是什么？

我正在编写一个perl脚本,在我正在检查用户在命令行上提供的选项的部分中,我想退出时出现错误,解释选项有什么问题.在这种情况下,不需要堆栈跟踪与此错误消息一起使用.那么,使用错误消息但没有堆栈跟踪或调试信息的最佳方法是什么？

我尝试过以下方法：

die "Invalid options";

哪个产生

Invalid options at myscript.pl line 49.

然后,我试过了

use Carp;
...
croak "Invalid options";

哪个产生

Invalid options at myscript.pl line 47
    main::prepare_output_directory() called at myscript.pl line 546

那么我怎么能用无效的选项而死呢？

奖金问题：为什么克罗克告诉我错误是在第47行,当实际打电话到第49行？

die "Invalid optionsn";