#include <perl++.hh>

wPerlScalar r = 0; 
for (int i = 0; i < 100; ++i) 
{ 
r = r + i; 
}