Select Code to Download

C:\>1071258.pl 3

Argument "" isn't numeric in numeric ge (>=) at 1071258.pl line 8, <ST
+DIN> line 1.

#!/usr/local/bin/perl
use 5.016; use warnings; 
# 1071258  (Q&A: convert between decimal and binary)
...
print"\n";
print @array;
print"\n";