my $num= shift @ARGV;
print "Your number ($num) is odd.\n"   if  $num & 1;

##</code><code>##

my $num= shift @ARGV;
print "Your number ($num) is odd.\n"   if  $num % 2;