RosettaCodeData/Task/Assertions/Perl/assertions-4.pl

use Carp::Assert;
assert($a == 42);