Implementation of the AMQ Protocol in Perl