I have a string contains 64 binary symbols.

I need to convert it into the decimal number. How can I do it in perl?

```
sub bin2dec {
    return unpack("N", pack("B64", substr("0" x 64 . shift, -64)));
}

```

doesn't work. it converts just first 32 bit.