#!perl
use warnings;
use strict;
use Tk;

my $main = MainWindow->new;

use Tk::FileDialog;
my $LoadDialog = $main->FileDialog;
MainLoop;