Use GetInputFocus() to get current focused window and use GetProperty() to get name of window. use X11::Protocol; my $x11 = X11::Protocol->new; my ($focuswin) = $x11->GetInputFocus; my ($title) = $x11->GetProperty( $focuswin, $x11->atom('W…