sub dec2bin {
   my $num = shift;
   my @num;  my $i = 0;

   (push @num, (($num & 2**$i) == 2**$i) ? 1 : 0) and $i++ until (2**$i > $num);
   return 0 + join '', reverse @num;
}