Perl experiment about bluetooth detection and communication with devices detected