my $docroot;
my $scriptpath;
BEGIN {
  use FindBin::Bin qw($Bin);
  $scriptpath = $Bin;

  $docroot = $ENV{DOCUMENT_ROOT};
}

#…
# dein Code
#
### je nach dem wo die Datei liegen soll, innerhalb des CGI-Pfades oder unterhalb docroot
my $filename = "$docroot/datein1";
### oder in ein Unterverteichnis unterhalb des Skripts
#my $filename = "$scriptpath/data/datein1";