I think that your problem is elsewhere as this works fine for me.

# A.pm
package A;

sub usage {
  print "This is usage()\n";
}

1;
[download]

#!/usr/bin/perl
# A.pl

use A;

A->usage;
[download]

$ ./A.pl
This is usage()
[download]