Select Code to Download

use Tk;

my $mw = MainWindow->new();

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

use Tk;
...
    else { die 'Wrong arg Received'}
}