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]