I found this whole thread interesting. When i read the title I thought "yep, I agree with that" but then on reading closer it wasnt even what I was thinking at all! :-) What I thought you meant was all those aweful sub like

sub get_foo {
  my $self=shift;
  return $self->{foo};
}
[download]

and its correspondingly ugly set_foo. If you had been talking about those being evil then i would agree. :-) Perl offers fancier and IMO more intuitive ways to do things:

sub foo {
  my $self=shift;
  if (@_) {
    $self->{foo}=shift;
    return $self;
  } else {
    return $self->{foo}
  }
}
[download]

(or a variant thereof, you can golf it down nicely. :-)