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;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Example;

Example::with_warn();
Example::with_carp();
warn "inside main script";

##</code><code>##

inside with_warn at Example.pm line 5.
inside with_carp at /path/to/warn_carp.pl line 7
inside main script at /path/to/warn_carp.pl line 8.