sub einlesen{
    open(FILE, $file) || die "Can't open the file $file: $!";
    foreach my $line (<FILE>){
        $textfield->insert('end', $line."\n");
    }
    close FILE;
}