Select Code to Download

($num,$base) = @ARGV;
$orig = $num;
...
  $bin .= $num ? "1" : "0";
  print "$orig in base $base: $bin\n";
}

sub hp_only_1_0_in_base_x {
  ($num,$base) = @_;
...
  }
  return ($num > 1) ? 0 : 1
}