Looks like you did not "use Foo1;" before attempting to call the class method.

Here is pared-down working code: First, the Foo1.pm file

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

Now the code to call Foo1:

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");
[download]

Results:

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)
[download]