use strict;
use warnings;

my $number = 75;

my $bitval = 1;
my $bits = '';
while ( $bitval <= $number ) {
    my $bit = $number & $bitval ? 1 : 0;
    $bits = $bit . $bits;
    $bitval *= 2;
}

print $bits, "\n";