read (STDIN, $daten, $ENV{'CONTENT_LENGTH'});
%daten = &CGIDA ($daten);
Dass Du das besser sein laesst und dafuer param aus dem Modul CGI.pm benutzt, wurde dir bereits geraten. Ansonsten:
use CGI::Carp 'fatalsToBrowser';
und
open DATEN, ">>$verz$name";
open DATEN ">>$verz$name" or die "$verz$name: $!";
Peter