my $mod =  10 % 2;
print "mod = $mod\n";