# A.pm
package A;

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

1;

##</code><code>##

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

use A;

A->usage;

##</code><code>##

$ ./A.pl
This is usage()