1 2 3
# Simple bluetooth scan with IOBluetooth (macruby) framework 'appkit'
#!/usr/bin/env perl use strict;