#!/usr/bin/perl

print "Input number: ";
$num = <>;
chomp $num;

$array[0] = $num % 2;
while ($num > 1) {
$num = int $num / 2;
push(@array, $num % 2);
}

print "Binary: ";
foreach(reverse @array) {
print;
}
print "\n";