Select Code to Download

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

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