Bluetoothctl automation

bluetooth.sh

#!/usr/bin/expect -f

set prompt "#"
set address [lindex $argv 0]

spawn sudo bluetoothctl -a
expect -re $prompt
send "default-agent\r"
expect "Default agent request successful"
send "remove $address\r"
expect "Device"
set timeout 120
send "scan on\r"
expect "Discovery started"
send_user "\nWaiting for $address to appear...\r"
expect "$address"
send_user "\nDone waiting\r"
send "scan off\r"
expect -re $prompt
send "pair $address\r"
expect {
    "PIN code:" {
        send "1234\r"
        send_user "\nShould be paired now.\r"
        expect "Paired: yes"
    }
    "Failed to pair:" {
        send_user "\nFailed to pair :(\r"
    }
}
send "quit\r"
expect eof

Removed my pet hate...hard coded sleeps.
Seems to be relatively stable.
I would like to add in an automatic binding (sudo rfcomm bind $available_port $address) but need to figure out how to get $available_port.