# save as use.pl
use FreddysPackage;
print "Calculator for LOG of X to base B\n";
print "Enter X: "; $x=<STDIN>;
print "Enter B: "; $b=<STDIN>;
printf("%s%.4f\n", "The result is ",
 callog($x,$b));