Perl script for BBB and Bluetooth Silver