eval { die "test"; }; print "$@"; напечатает test at <имя файла> line номер. а как убрать сообщения о номерах строк откуда приел die? что-то не найду PS: только $@ =~ s/бла-бла// не предлагать :)