#!/usr/bin/perl -l

#Program to calculate the range of unsigned integer numbers
#produced from 1 to 32 bits.

use warnings;
use strict;

for(0..32){
 my $bin='0b'.'1'x$_;
 print "$_ : 0 to ",oct $bin;
}