#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $path;
my $mw = tkinit();
$mw->Entry(-textvariable => \$path)->pack();
$mw->Button(-command => \&search_file, -text => 'Datei wählen')->pack();

MainLoop;

sub search_file{
  $path = $mw->getOpenFile();
}