package My::Class;
sub my_method {
    my ($self,@args) = @_;
    print "@args\n";
};

sub other_method {
    my ($self,@args) = @_;
    $self->my_method('hello');
};

package main;

My::Class->my_method('world');