$num = 1234567;
$result = "";
$base = 2;
do {
    use integer;
    my $digit = $num % $base;
    substr($result, 0, 0) = $digit; # for any number < 10
    $num /= $base;
} while $num;
print $result;