# save as FreddysPackage.pm
# this is a package file
package FreddysPackage;

use Exporter;
our @ISA=qw(Exporter);

# export subroutine
our @EXPORT=qw(&callog);

# calculates logarithm
sub callog{
  my($val,$base)=@_;
  return (log($val)/log($base));
  }

# indicate successful import
return 1;