use FindBin;
my $idDatei = "$FindBin::Bin/../$id.txt";
open(my $TEXTDATEI, "<", $idDate) or die "Error: couldn't read '$idDatei': $!\n";
while (my $line (<$TEXTDATEI>)) {
  # ...
} # while
close $TEXTDATEI;