#!/usr/bin/perl -l

use strict;
use warnings;

$|=1;

my(@dec) = 
    qw(1 2 3 4 5 6 7 8 9 10 16 32 64 100 256 512 1000 1024);

foreach my $dec (@dec) {
    print dec2bin( $dec );
}   

sub dec2bin { 
    my $str = unpack('B32', pack('N', shift)); 
    $str =~ s/^0+(?=\d)//; 
    return $str;
}