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