use Tk;

my $mw = MainWindow->new();

$mw->send('Foo' => $file_name);