my $path = ""; # oder defaultwert
unless (open (FH, $filename)) {
  die "Error: couldn't read from '$filename': $!\n";
} # unless
else {
  while (<FH>) {

    # path von anfang der zeile bis zur wortgrenze; so wird
    # z.B. PATHINFO nicht gefunden
    if ( /^PATH\s*\=\s*(.+?)$/ ) {
      $path = $1;
      last; # schleife abbrechen
    } # if
  } # while

  close (FH);
} # else