sub dec2bin
{
  return sprintf("%b", $_[0]);
}