BEGIN {
    eval { die };
    print($@ ? 1 : 0, "\n");   # 1
}

print($@ ? 1 : 0, "\n");       # 0

##</code><code>##

BEGIN {
    eval {
        require Term::ReadKey;
    };
};
my $use_readkey = 1 unless $@;

##</code><code>##

my $use_readkey;
BEGIN {
    eval {
        require Term::ReadKey;
    };
    $use_readkey = 1 unless $@;
}

##</code><code>##

my $use_readkey;
BEGIN {
   $use_readkey = eval { require Term::ReadKey };
}

##</code><code>##

my $use_readkey = eval { require Term::ReadKey };