Select Code to Download

use warnings;
use strict;
...
    require Carp;
    Carp::carp "This should not work!"; # Or whatever
}

use warnings;
use strict;
use Carp;

...