Implementing CIFS (SMB) protocol in Perl