sub dec2bin {
   my $inNumber = shift;
   my $sign = $inNumber=~s/^-// ? '-' : '';
   return $sign.sprintf "%b", $inNumber;
}