http://blogs.perl.org/users/saif/Websocket%20File%20upload.png