my $self = $_[0];  # instead of $self = shift

##</code><code>##

my $self = shift;
my $caller = shift;