use FindBin; # $FindBin::Bin enthaelt den pfad zum Script
my $file = "$FindBin::Bin/../data/choices.txt"; # oder was auch immer
unless (open (ALT, $file)) {
  print "Fehler: konnte Datei '$file' nicht oeffnen: $!\n";
  exit 0;
}