#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = MainWindow->new();
$mw->title("Some Window");
my $infile = $mw->getOpenFile();
print "$infile\n";