OS X (Apple)

# port info p5-gtk2
p5-gtk2 @1.222 (perl)
Variants:             universal

Description:          Perl bindings to the 2.x series of the Gtk+ graphical user interface library. This module allows you to write graphical user interfaces in a perlish and object-oriented way, freeing you
                      from the casting and memory management in C, yet remaining very close in spirit to original API.
Homepage:             http://gtk2-perl.sourceforge.net/

Library Dependencies: gtk2, p5-extutils-depends, p5-extutils-pkgconfig, p5-glib, p5-cairo, p5-pango
Platforms:            darwin
License:              LGPL-2.1+
Maintainers:          nomaintainer@macports.org

$ /opt/local/bin/perl seat 
Can't locate XML/Smart.pm in @INC (@INC contains: includes/ /opt/local/lib/perl5/site_perl/5.8.9/darwin-2level /opt/local/lib/perl5/site_perl/5.8.9 /opt/local/lib/perl5/site_perl /opt/local/lib/perl5/vendor_perl/5.8.9/darwin-2level /opt/local/lib/perl5/vendor_perl/5.8.9 /opt/local/lib/perl5/vendor_perl /opt/local/lib/perl5/5.8.9/darwin-2level /opt/local/lib/perl5/5.8.9 .) at includes//Execution.pm line 15.
BEGIN failed--compilation aborted at includes//Execution.pm line 15.
Compilation failed in require at seat line 38.
BEGIN failed--compilation aborted at seat line 38.

$ head -n 60 seat 
#!/usr/bin/perl -w
#
#   SEAT - next generation information digging application.
#   For details:
#   http://midnightresearch.com/projects/search-engine-assessment-tool/
#
#   Original Code: Peter Kacherginsky (iphelix)
#   Contributors:
#
#   Copyright (C) 2007 Midnight Research Laboratories
#
#   THIS SOFTWARE IS PROVIDED "AS IS". NO WARRANTY IS ASSUMED.
#   NO LIABILITY OF ANY KIND FOR ANY DAMAGES WHATSOEVER RESULTING
#   FROM THE USE OF THIS SOFTWARE WILL BE ACCEPTED. IT CAN BURN
#   YOUR HARD DISK, ERASE ALL YOUR DATA AND BREAK DOWN YOUR
#   MICROWAVE OVEN. YOU ARE ADVISED.
#
#   seat is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.  For details see doc/LICENSE.
package main;
use strict;

use lib "includes/";

# Perl-GTK2 includes
use Gtk2;
Gtk2::Gdk::Threads->init;
Gtk2->init;
#use Gtk2 qw/-init -threads-init 1.050/;
use Glib qw(TRUE FALSE);
die "Glib::Object thread safety failed"
    unless Glib::Object->set_threadsafe (TRUE);

# SEAT includes
use Preparation;
use Execution;
use Analysis;
use Database;
use Help;

###############################################################################
# User Interface Section

# Standard window creation, placement, and signal connecting
my $window = Gtk2::Window->new('toplevel');
$window->signal_connect('delete_event' => sub {
    Gtk2->main_quit;
});

$window->set_border_width(5);
$window->set_position('center_always');
$window->set_icon_from_file("images/Mrl.jpg");
$window->set_size_request('800','600');
$window->set_title("SEAT: Search Engine Assessment Tool");


# Initialize SEAT data structures and pages
my $database = Database->new;