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