Select Code to Download

 
#!/usr/bin/perl -w 
use strict; 
...
print $decimal & 2 <=> 0; 
print $decimal & 1 <=> 0 ;

output: 

...
F:\Perl\code>chap2ex3.pl 
Enter decimal number less than 256:8 
00000000