Then you may like to make it a runtime error:

#!/usr/bin/perl -l
use warnings;
use strict;

use warnings FATAL => qw/exiting/;  # make it a runtime error

sub xxx { next }

no warnings;
for ( 1 ... 3 ) {
    print;
    xxx;
}
print "done";
[download]

So little time so much perldoc.

(Thanks bart.)