print "Enter a decimal number: ";
chomp( $decimal = <STDIN> );
$binary  = '';

while( $decimal ){
    $binary  = $decimal%2 . $binary;
    $decimal = int( $decimal/2 );
}
 
print STDOUT $binary;