use Carp qw(confess); ... confess "assertion description" unless $condition