sub foo {
    my $value = rand(5);
    return ( ($value > 2) || die );
}