package Classname;
sub method {
        print ref($_[0]) ? 'Object method' : 'Class method';
        print "\n";
}

package main;
my $obj = bless {},Classname;
my $arg = 1;

# calls here

method $obj $arg;
Classname::method( $obj, $arg);  # added Classname::
$obj->method( $arg);
"Classname"->method( $arg);
method Classname $arg;
Classname::method( "Classname", $arg); # added Classname::

__END__
prints:

Object method
Object method
Object method
Class method
Class method
Class method

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.