#!/usr/bin/perl -w
#We use warnings
#test if a number is odd or even using modulus:
for ($i = -3; $i <=11; $i++) {
$mod = $i %2;
 if ($mod == 0){ printf "$i is even, modulus is $mod \n";
}
 if ($mod == 1){ printf "$i is odd, modulus is $mod \n";
}
}