#!/usr/bin/perl
# Ex2_3.plx
use warnings;

print "Prosz poda liczb (mniejsz od 256), ktra ma by przeksztacona do systemu dwjkowego : \n";
my $bin  =  <STDIN>;

chomp($bin);
print ("Dwjkowa warto liczby $bin wynosi : ",  "\n ");

#Uyj operatora bitowego w celu okrelenia wartoci binarnej

print ((128&$bin)/128);
print ((64&$bin)/64); 
print ((32&$bin)/32); 
print ((16&$bin)/16);
print ((8&$bin)/8);
print ((4&$bin)/4);
print ((2&$bin)/2);
print ((1&$bin)/1);
print "\n";