perl

$| = 1; - вывод сразу

Неравенство в регулярном выражении это !~ , а не !=

my @files = glob( $dir . '/*' );

=====

e - Расмматривать правую часть как выражение.

20px -> 10px

$k=2;
s|(\d+)(?=px)|int($1/$k)|eg;

------------

$_ = <>; # Читать одну строку с клавиатуры

---------------

qx/строка/

`строка`
Сначало строка интерполируется а потом выполняется как
системная команда.
А вывод команды можно - в переменную.

Пример:
print `date`;

Результат:
Thu Nov 14 13:36:49 MSK 1996

----------------
#!/usr/bin/perl -w

use utf8;
use strict;
use Wx;

my $app = Wx::SimpleApp->new;
my $frame= Wx::Frame->new( undef, -1, "Trivial Sample" );
my $button = Wx::Button->new( $frame, -1, 'Test' );
#EVT_BUTTON( $this, $button, 'OnAbout' );

$frame->Show;
$app->MainLoop;

-----------------------

Модальное окно:

#!/usr/bin/perl -w

use utf8;
use strict;
use Wx;

Wx::MessageBox("Это окно без заголовка");

Wx::MessageBox("Это окно с заголовком", "Заголовок");

Wx::LogMessage( 'Button clicked' );

-----------------

wxperl_demo.pl - запускает wx demo

-----------------

sudo apt install libgtk-3-dev - dev - Это именно для разработки

sudo apt install gtk-3-examples - Это демки для С++

Запускается так: gtk3-demo

-------------------------------------

cpan -i pp
sudo apt install libpar-packer-perl - pp устанавливается за секунды в Убунту

это сработало, но говорят что так лучше:

apt-get install libwx-perl - ставил Wx модуль

https://metacpan.org/pod/Wx

http://www.wxperl.it/p/download.html