sub GammaCode
{
	my $n = $_[0];
	my $gammaCode;
	my $mystring;
	my $log = int(log2($n));
	return 1 if $n==1;
	for(1 .. $log)
	{
		$gammaCode .="1";
	}
	$gammaCode .="0";
	$mystring = dec2bin($n);
	$mystring =~ s/^\w{1}//; 

	$gammaCode .=$mystring;
	return $gammaCode;
}
sub log2 {
	my $n = shift;
	return log($n)/log(2);
    }



sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    $str =~ s/^0+(?=\d)//;   # otherwise you'll get leading zeros
    return $str;
}

sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}
my $number=11;

print "The Gamma reprasentation of $number is\t",GammaCode($number),"\n";