package Foo1;
use strict;
sub bar { 
  print "Hello (FIRST Param=$_[0]) (Second-param=$_[1])\n";
}
1;

##</code><code>##

use strict;
use warnings;
use Foo1;

my $obj = bless {},"Foo1";

$obj->bar( "Instance Method"); # Calling an instance method. 
             # this passes DIFFERENT parameters than the class method.
Foo1::bar("Class Method call");
Foo1->bar("Pseudo-method call");

##</code><code>##

Hello (FIRST Param=Foo1=HASH(0xa165818)) (Second-param=Instance Method)
Hello (FIRST Param=Class Method call) (Second-param=)
Hello (FIRST Param=Foo1) (Second-param=Pseudo-method call)