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