Select Code to Download

use warnings;
use strict;
...
warn at w.pl line 23.
warnings::warn at w.pl line 24.
carp at w.pl line 25.

sub _debug {
    my ($self, $lvl, @out) = @_;
...
}
# ...
$self->_debug(2, ...);