C:\>1071258.pl 3

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

##</code><code>##

#!/usr/local/bin/perl
use 5.016; use warnings; 
# 1071258  (Q&A: convert between decimal and binary)

chomp (my $inputNumber = <STDIN>);
my @array;

while ($inputNumber>=1) 
{
	my $remainder;
	my $quo;

	if ($inputNumber == 1) 
	{
		unshift @array,$inputNumber;
		last;
	}

	$remainder = $inputNumber % 2;
	print "Remainder = $remainder\n";
	$quo = $inputNumber / 2;
	print "Quo = $quo\n";

	unshift @array,$remainder;
	$inputNumber = $quo;
}
print"\n";
print @array;
print"\n";