Integrating C++ and Perl with SWIG

ch-1x.pl

use strict;
use warnings;
##  
# Write a script that computes the first five perfect numbers. 
# A perfect number is an integer that is the sum of its positive 
# proper divisors (all divisors except itself). 
##
use Perfect;  
use constant PERFECT_COUNT => 5;

my $i = 2; 
my $count = 0; 
my $p = new Perfect::Perfect();  
do{
    if($p->isPerfect($i)){  
        print "$i ";   
        $count++;   
    }    
    $i++;   
}while($count < PERFECT_COUNT);
print "\n";  

Makefile.PL

use ExtUtils::MakeMaker;
WriteMakefile(
    "NAME"    => "Perfect",                  # Name of package
    "OBJECT"  => "perfect.o perfect_wrap.o"  # Object files
);

perfect.cxx

#include "perfect.h"

Perfect::Perfect(){
}  

Perfect::~Perfect(){
}  

bool Perfect::isPerfect(int n){
    long int sum = 1;

    // Find all divisors and add them
    for (long int i=2; i*i<=n; i++){
        if (n%i==0){
            if(i*i!=n)
                sum = sum + i + n/i;
            else
                sum=sum+i;
        }
    }
    if (sum == n && n != 1){ 
          return true;
    }
     return false;
}   

perfect.h

#ifndef PERFECT_H_
#define PERFECT_H_

class Perfect{
    public: 
        Perfect();
        ~Perfect();
        bool isPerfect(int n);
};   

#endif

perfect.i

/* File : perfect.i */
%module Perfect 
%{
    #include "perfect.h"  
%}

%include "perfect.h"