sub assert (&) {
   require Carp;
   (shift)->() ? 1 : Carp::croak('Assertion failed')
}

my $x = 42;
assert { $x > 40 };   # assertion ok