Select Code to Download

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

use strict;
use warnings;
...
             # this passes DIFFERENT parameters than the class method.
Foo1::bar("Class Method call");
Foo1->bar("Pseudo-method call");

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)