Select Code to Download

use warnings;
use strict;
use Tk;
...
my $mw = MainWindow->new();
$mw->getOpenFile();
MainLoop;