use warnings;
use strict;

sub complain {
    require Carp;
    Carp::carp "This should not work!"; # Or whatever
}

##</code><code>##

use warnings;
use strict;
use Carp;

...