Hi!

It is better done as Joost mentioned, but if you really want to use an entry-widget, you could do it like this:

use Tk;

my $file;

my $top = new MainWindow;
my $ent = $top->Entry(-textvariable=>\$file)->pack();
my $but = $top->Button(-text=>"ShowFile",-command=>\&sub_file)->pack()
+;

MainLoop();

sub sub_file {
    print $file;  # or whatever
}
[download]

Hope this helps,

mawe