GTK2-Perl — часть официального релиза GNOME Platform Bindings^[1], вместе с интерфейсами к C++, Python и Java.

use Gtk2 ‘-init’;

$window = Gtk2::Window->new(‘toplevel’);
$window->set_title(«Hello World!»);

$button = Gtk2::Button->new(«Press me»);
$button->signal_connect(clicked => sub { print «Hello again – the button was pressed\n»; });

$window->add($button);
$window->show_all;

Gtk2->main;
0;

Это пример программы Hello world, которая выводит это знаменитое сообщение и завершается.

SECTION .data
msg db «Hello, world!»,0xa ;
len equ $ – msg
SECTION .text
global main
main:
mov eax,4
mov ebx,1
mov ecx,msg
mov edx,len
int 0×80
mov eax,1
mov ebx,0
int 0×80