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 => '.' );
my $check = $value;
utf8::downgrade($value);

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

if (-e $check) 
 {
  print "check existiert\n";
 }
else
 {
  print "check existiert nicht\n";
 }

print ord($_).':' for(split(//,$value));
print "\n";
print ord($_).':' for(split(//,$check));
print "\n";

print "$value\n$check";