Выполнение команды, когда приложение переходит на передний план (Ubuntu 19.04, X11)

Следующий perl-скрипт отслеживает окно, имеющее «фокус ввода».

#!/usr/bin/perl
open F,"xdotool search --class '.' behave %@ focus getwindowpid |";
while (<F>) {
    ($f = `xdotool getwindowfocus`) =~s/\n//;
    my $hex = sprintf("0x%X", $f);
    $hex = lc($hex);
    $hex =~ s/0x//;
    print `wmctrl -lGpx | grep '$hex'`;
};

Обратите внимание, что xdotool также отправляет события, когда окно теряет фокус, поэтому вывод не такой чистый, как хотелось бы. Однако при этом можно определить, получило ли новое окно фокус.