bt.pl
Copying Source is Forbidden
9 lines of code
1
#!/usr/local/bin/perl
2
3
use Net::Bluetooth;
4
5
#### list all remote devices in the area
6
my $device_ref = get_remote_devices();
7
foreach $addr (keys %$device_ref) {
8
print "Address: $addr Name: $device_ref->{$addr}\n";
9
}