use strict;
use warnings;

package Foo_Bar;
sub _aa {
  my( $self, $quux ) = @_;
  print "\t_aa\n";
}
1;