BEGIN {
    package Foo;
    sub new { return bless {}, shift }
    sub method {
        my( $self, $what ) = @_;
        print  "AIX goes $what\n";
    }
}
my $obj = Foo->new;
$obj->method('the what');
__END__
AIX goes the what
[download]