Perl module - Log messages to a socket