#!/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";