diff --git a/bluetooth_dmenu.pl b/bluetooth_dmenu.pl
index 0a69637..5b930ef 100755
--- a/bluetooth_dmenu.pl
+++ b/bluetooth_dmenu.pl
@@ -21,7 +21,7 @@ foreach my $name (sort(keys %devices)) {
     $device_list .= $name . "\n";
 }
 
-my $selection = `printf "$device_list" | dmenu` or die("No selection made");
+my $selection = `printf "$device_list" | dmenu -p "Connect Bluetooth device:"` or die("No selection made");
 chomp($selection);
 `notify-send "$script_name" "Attempting to connect to $selection ($devices{$selection})"`;
 `bluetoothctl connect $devices{$selection}`;