C:\Code>perl modtest.pl
num is 3891 answer is 1
num is 3891 answer is 1