use strict;
use warnings;

use FindBin;
use File::Spec::Functions;

my $haeufigkeiten = catfile($FindBin::Bin, 'haeufigkeiten.txt');

if (-e $haeufigkeiten) {
  print "$haeufigkeiten gibt's schon\n"
  # lies die Datei
}
else {
  print "$haeufigkeiten haben wir hier nicht\n"
  # erzeuge die Datei
}