Bruce Barnett's Locking Your Screen Using a MetaWatch provides sample code (perl) for detecting when a BlueTooth device has left or arrived.
See also: Your Mac Knows When You're Home