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

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

# indicate successful import
return 1;