#!/usr/bin/env perl use utf8; use strict; use warnings; use Gtk2 '-init'; use Path::Class; use LDFM::MainController; my $glade_dir=file(__FILE__) ->parent ->parent ->subdir('resources'); my $main_controller=LDFM::MainController->new( glade_dir => $glade_dir ); $main_controller->run();