!!! use branch "broken", it's much more advanced !!!

About
=====
BitCoin implemented in perl, meant to be portable.

Usage:
    perl bitcoin.pl

It's in the development state, so everything can be changed.

Features:
- web interface
- data stored in sql via DBI (sqlite by default)
- blockchain download
- chain branches

Todo:
- much more testing
- add web auth with roles
- add key management and money transfer
- full networking and multiple connections
- getwork rpc for miners
- fix serialize.pm for "32-bit perl"

License
=======
Do what you want license

Bitcoin wire protocol
=====================
version (...)
	+ hello
getaddr ()
	+ get addresses of last 5 days
addr ({CAddress})
	+ new address announce 
getblocks (CBlockLocator, uint256)
	- asnwered with "inv"
getdata ({CInv})
	+ get blocks, answered with "block" and maybe last with "inv"
block (CBlock)
	+ requested block
tx (CTransaction)
	+ new tx announce
inv ({CInv})
	+ new hash of tx/block announce
checkorder (uint256, CWalletTx)
	- direct request for pubkey, answered with "reply"
submitorder (uint256, CWalletTx)
	- new?
reply (uint256 hashReply, int, ...)
	- reply
ping ()
	+ ping
subscribe (int, int)
	? only sent, never processed

see https://en.bitcoin.it/wiki/Protocol_specification