package Ex;
    use warnings;
    use strict;
    use Data::Dumper;
    use Carp;

    our $VERSION = '0.01';

    sub new {
        my $class = shift;
        my %args  = @_;
        my $self  = \%args;
        bless $self, $class;
        return $self;
    }

    sub do_something {
        my $self = shift;

        warn qq(\n"caller()"\n) . Dumper( [ caller() ] ) . "\n";
        warn qq("warn"ing);
        carp qq("carp"ing);
        print qq(you gave me "$_[0]"\n);

        return;
    }

    1;