use Tk;
use strict;

my $top = MainWindow->new();

my @types =( ['All files',         '*'],
          ['CSV files',      '.csv'],
          ['Excel files',    '.xls'] );
my $value = $top->getOpenFile( -filetypes => \@types, -initialdir => '.' );

utf8::downgrade($value);

if (-e $value) {
    print qq(existiert\n);
} else {
    print $value, "\n";
}