package Example;
use strict;
use warnings;
use Carp;

sub with_warn { warn "inside with_warn"; return; }
sub with_carp { carp "inside with_carp"; return; }
1;