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