sub foo {
    my $value = rand(5);
    return $value > 2 or die "Value was not greater than 2.\n";
}