use strict; use threads; use threads::shared; use Glib qw/TRUE FALSE/; use Gtk2 qw/-init -threads-init/; use Cairo; use POSIX qw/ceil floor/; use Fatal qw/open close opendir closedir/; use File::Basename qw/basename/;