Select Code to Download

use strict;
my $Q;
...
}
    return wantarray ? @_ : $Q;
}

sub SomeSubWithNothingElseToShift {
my $self = return_with_object(@_);
...
my $self = shift;
my $barz = shift;
}