log(~0)/log(2)

##</code><code>##

helmut@w3:~$ perl -e 'print log(-1)/log(2),"\n";'
Can't take log of -1 at -e line 1.