...
my @bits;

while ($dec || ! @bits) {
    push @bits, $dec & 1;
    $dec >>= 1;
}

printf "The entered decimal number in binary is : %s\n", join '', reverse @bits;