open (my $fh, '<', 'gibsnicht.txt') || die $!;