package A::B;

sub new {
   my $caller = shift;
   my $self = {};

   bless $self, ref($caller) || $caller;
}

sub method {
   my $self = shift;
   my @args = @_;

   print "self=$self, args=@args\n";
}

sub function {
   my @args = @_;

   print "args=@args\n";
}

package main;

$self = new A::B;     # A::B::new as a package method,
                      # first arg = "A::B";
$self = A::B->new;    # A::B::new as a package method,
                      # first arg = "A::B";
$self = $self->new;   # A::B::new as an *object* method,
                      # first arg = $self, ref($self) = "A::B"

&A::B::function("some", "args");      # don't care about $self or A::B

$self->method("some", "args");        # Need to know $self
&A::B::method($self, "some", "args"); # Same results, weird methodology

A::B->method("some", "args");         # Need to know name of package