#!/usr/bin/perl

print "Enter number (DECIMAL): ";chomp($dec=<STDIN>);

while($dec){
     $dec = int($dec);
     @base = reverse(split(/\^*/,$dec));
     $intB = int($base[0]/2);
     $noIntB = $base[0]/2;
     if($intB eq $noIntB){$temp="0"}
     else{$temp="1"}push(@binary,$temp);
     $dec /= 2;
     if($dec < 1){last}
} 
print "Binary : " . reverse(@binary),"\n";