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

my $mw = MainWindow->new();

my @files = $mw->getOpenFile(-multiple => 1,);

print "File was '$_'\n" for @files;