use strict;
use warnings;
use Tk;

my $infile = $mw->getOpenFile;
exit unless $infile;    # oder return (in einer sub)
open( my $in, '<', $infile ) or die("can't open $infile: $!");