sub dec2bin {
    my $binnumb;
    while($inNumber > 0) {
	my $binary = $inNumber % 2;
	print $inNumber; print "\n";
	$inNumber = int($inNumber / 2);
	$binnumb .= $binary; 
	print $binnumb; print "\n";
    }
    $binnumb = reverse $binnumb;
    return $binnumb;
    }