for my $foo (1..210) {
	print "$foo ",dec2bin($foo)," binrounded is ",binround($foo),"\n";
}

sub binround {
	my $bin = dec2bin(shift);
	my $mod = 0;
	$mod = 1 if (split('1','0'.$bin.'0') == 2);
	return '1' . ('0' x (length($bin)-$mod));
}

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