Hi monks,

I have a large perl program (let's call it "myscript.pl"), and now I'm writing a Tk interface for it. Earlier, when I sought your advice about how to call the perl program with a button click, some of you suggested this:

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

sub clicked {
    system ( 'myscript.pl' );
}

my $top = MainWindow->new();
my $button = $top->Button ( 
                           -text => "click me",
                           -command => \&clicked
                          )->pack();
...
MainLoop();
[download]

My new problem:

In my Tk interface, I ask the user to browse and select the name of a file (let's call the variable $filename). I have to return this name back to myscript.pl so my original program can use it.

How do I do that? Would I change the -command property in my button to read

my $button = $top->Button ( 
                           -text => "click me",
                           -command => [\&clicked, \$filename]
                          )->pack();
[download]

???

Thanks for your help! I really appreciate this.