семь строк крайне облегчающих жизнь.

[_kleptos_]

BEGIN
{
no strict;
use Carp;
*CORE::GLOBAL::die = \&Carp::confess;
*CORE::GLOBAL::warn = \&Carp::cluck;
}