Select Code to Download

use Fcntl;   # For O_RDWR, O_CREAT, etc.
use SDBM_File;

...

print intfactor($c,$r);