RosettaCodeData/Task/Binary_digits/Perl/binary_digits.pl

for (5, 50, 9000) {
  printf "%b\n", $_;
}